Changeset 21572 for perl5

Timestamp:

07/27/08 16:58:33 (4 months ago)

Author:

fglock

Message:

[v6.pm] improved smartmatching

Location:

perl5/Pugs-Compiler-Perl6

Files:

• ChangeLog (modified) (1 diff)
• lib/Pugs/Emitter/Perl6/Perl5.pm (modified) (1 diff)

perl5/Pugs-Compiler-Perl6/ChangeLog

@@ -1 +1 @@
 - all(), any(), true(), not()
+- improved smartmatching, given/when
 
 0.027  2008-07-25

perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm

@@ -1477 +1477 @@
             }
         }
+        if (   exists $n->{exp2}{int} && defined $n->{exp2}{int} 
+            || exists $n->{exp2}{num} && defined $n->{exp2}{num} 
+            ) 
+        {
+            return _emit( {
+                      'assoc' => 'chain',
+                      'chain' => [ $n->{exp1}, '==', $n->{exp2} ]
+                } );
+        }
+        if (   exists $n->{exp2}{single_quoted} && defined $n->{exp2}{single_quoted} 
+            || exists $n->{exp2}{double_quoted} && defined $n->{exp2}{double_quoted} 
+            ) 
+        {
+            return _emit( {
+                      'assoc' => 'chain',
+                      'chain' => [ $n->{exp1}, 'eq', $n->{exp2} ]
+                } );
+        }
         return _emit( $n->{exp1} ) . ' =~ (ref' . emit_parenthesis( $n->{exp2} ).' eq "Regexp" '.
             ' ? '._emit($n->{exp2}).