From 6ea4d0cc1a3f74917b569ec473141ff92e51e5bc Mon Sep 17 00:00:00 2001
From: pmichaud <pmichaud@pobox.com>
Date: Tue, 29 Jun 2010 10:27:31 -0500
Subject: [PATCH] Refactor Block.arity and Block.count; make .count return Inf.

---
 src/core/Block.pm | 19 ++++++-------------
 1 file changed, 6 insertions(+), 13 deletions(-)

diff --git a/src/core/Block.pm b/src/core/Block.pm
index ac4b1c96cae..49a3c7476a3 100644
--- a/src/core/Block.pm
+++ b/src/core/Block.pm
@@ -1,27 +1,20 @@
 augment class Block {
 
-=begin item arity
-
-=end item
     method arity() {
         my $arity = 0;
-        my @params = self.signature.params;
-        for @params -> $p {
+        for self.signature.params -> $p {
             $arity++ unless $p.slurpy || $p.optional;
         }
-        $arity
+        $arity;
     }
 
-=begin item count
-
-=end item
     method count() {
         my $count = 0;
-        my @params = self.signature.params;
-        for @params -> $p {
-            $count++ unless $p.slurpy;
+        for self.signature.params -> $p {
+            return Inf if $p.slurpy;
+            $count++;
         }
-        $count
+        $count;
     }
 
     method ACCEPTS(Mu $topic) {