Changeset 21600 for perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm

Timestamp:

07/28/08 22:20:34 (5 months ago)

Author:

fglock

Message:

[v6.pm] added bare sigils

Files:

• perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm (modified) (4 diffs)

perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm

@@ -276 +276 @@
                         },   
                   } 
+                | { return { bare_sigil => '$' ,} }
             ),
         '$.' => q(
@@ -315 +316 @@
                 <?Pugs::Grammar::Term.ident>
                 { return { array => "\@" . $_[0]->() ,} }
+            | { return { bare_sigil => '@' ,} }
             ),
         '::' => q(
@@ -335 +337 @@
                 <?Pugs::Grammar::Term.ident>
                 { return { hash  => "\%" . $_[0]->() ,} }
+              | { return { bare_sigil => '%' ,} }
             ),
         '%()' => q(
@@ -351 +354 @@
                 <?Pugs::Grammar::Term.ident>
                 { return { code  => "\&" . $_[0]->() ,} }
+              | { return { bare_sigil => '&' ,} }
             ),
         '(' => q(