Add Junction.ACCEPTS.

rakudo · Jul 7, 2011 · b4d5e56 · b4d5e56
1 parent 15ec618
commit b4d5e56
Showing 1 changed file with 19 additions and 0 deletions.
diff --git a/src/core/Junction.pm b/src/core/Junction.pm
@@ -19,6 +19,25 @@ my class Junction is Mu {
         $count == 1;
     }
 
+    multi method Str(Junction:D:) {
+        self.new($!storage.map({$_.Str}), :type($!type))
+    }
+
+    multi method ACCEPTS(Junction:D: Mu \$topic) {
+        ($!storage.map({return True if $_.ACCEPTS($topic)}).gimme(*); return False)
+            if $!type eq 'any';
+        ($!storage.map({return False unless $_.ACCEPTS($topic)}).gimme(*); return True) 
+            if $!type eq 'all';
+        ($!storage.map({return False if $_.ACCEPTS($topic)}).gimme(*); return True)
+            if $!type eq 'none';
+        # 'one' junction
+        my $count = 0;
+        $!storage.map({ $count++ if $_.ACCEPTS($topic); return False if $count > 1 }).gimme(*);
+        $count == 1;
+    }
+
+
+
     submethod BUILD(:$!storage, :$!type) { }
 
     multi method perl(Junction:D:) {