view release on metacpan or  search on metacpan

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

889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
               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

927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
               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

1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
                                                               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]->()  ,}
        } };
                                                                       }
                                                                   )
                                                               )
                                                             )
                                                           )
                                                         )