Add coerce to Numeric

FCO · Apr 1, 2017 · 2afe78d · 2afe78d
1 parent eef7d8e
commit 2afe78d
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/lib/Heap.pm6 b/lib/Heap.pm6
@@ -69,6 +69,10 @@ role Heap[$heap_cmp = * cmp *] {
 		::?CLASS.^name ~ ".new: {@!data.gist}";
 	}
 
+	method Numeric {
+		+@!data
+	}
+
 	method Array {
 		@!data
 	}

diff --git a/t/01-test.t b/t/01-test.t
@@ -24,6 +24,8 @@ lives-ok {
 
 is-deeply $h.Set, [-1, 1].Set;
 
+is +$h, 2, "Numeric";
+
 my $h1 = Heap.new(1, 2, 3);
 my $h2 = Heap.new(3, 2, 1);