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	