Changeset 7189

Timestamp:

09/28/05 22:04:01 (3 years ago)

Author:

fglock

Message:

* perl5/Code - added Junction support to multisubs

Files:

• perl5/Perl6-Value/lib/Perl6/Code.pm (modified) (3 diffs)

perl5/Perl6-Value/lib/Perl6/Code.pm

@@ -221 +221 @@
             'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
     
-            do => sub {
+            'expand_junctions' => sub {
                 my ($self, @arguments) = @_;
                 #warn "DO @arguments\n";
@@ -246 +246 @@
                     }
                 }
+                return;
+            },
+            do => sub {
+                my ($self, @arguments) = @_;
+
+                my $j = $self->expand_junctions( @arguments );
+                return $j if $j;
 
                 $self->check_params(@arguments)
@@ -356 +363 @@
             do => sub {
                 my ($self, @args) = @_;
+
+                my $j = $self->expand_junctions( @args );
+                return $j if $j;
+
                 # warn "testing multisub, ".( scalar @{ _('@.subs') } );
                 foreach my $_sub ( @{ _('@.subs') } ) {