view release on metacpan or  search on metacpan

misc/pX/Common/lrep-compiler/Grammar/Perl6.pm.bak  view on Meta::CPAN

               sub {  $grammar->ident( @_ ) } 
,             concat( 
               optional(
                 sub {  $grammar->p6ws( @_ ) } 
               )
,               concat( 
                   constant( ';' )
,                   abort(
                       sub {
                           return { bool => 1, tail => $_[0], return => sub { 
		# XXX This is perl5 code
		# this is ugly
		eval 'require '. $_[0]->() ->[2]{ident}[0]{ident};
		return { require_bareword =>  $_[0]->()  ,} 
	} };
                       }
                   )
               )
             )
           )
         )

misc/pX/Common/lrep-compiler/Grammar/Perl6.pm.bak  view on Meta::CPAN

               sub {  $grammar->ident( @_ ) } 
,             concat( 
               optional(
                 sub {  $grammar->p6ws( @_ ) } 
               )
,               concat( 
                   constant( ';' )
,                   abort(
                       sub {
                           return { bool => 1, tail => $_[0], return => sub { 
		# XXX This is perl5 code
		# this is ugly
		# eval 'use '. $_[0]->() ->[2]{ident}[0]{ident};
		return { use_bareword =>  $_[0]->()  ,} 
	} };
                       }
                   )
               )
             )
           )
         )

misc/pX/Common/lrep-compiler/Grammar/Perl6.pm.bak  view on Meta::CPAN

                                                               constant( ')' )
,                                                             concat( 
                                                               optional(
                                                                 sub {  $grammar->p6ws( @_ ) } 
                                                               )
,                                                               concat( 
                                                                   sub {  $grammar->code( @_ ) } 
,                                                                   abort(
                                                                       sub {
                                                                           return { bool => 1, tail => $_[0], return => sub {
	 # XXX This is perl5 code
	 # XXX This is ugly
	 eval Emitter::Perl5::emit({macro =>  $_[0]->() });
	 return { macro =>  $_[0]->()  ,}
	} };
                                                                       }
                                                                   )
                                                               )
                                                             )
                                                           )
                                                         )