List.pop

rakudo · Jul 1, 2011 · 70f9c03 · 70f9c03
1 parent 437675e
commit 70f9c03
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/core/List.pm b/src/core/List.pm
@@ -119,6 +119,18 @@ class List does Positional {
           !! fail 'Element shifted from empty array';
     }
 
+    method pop() {
+        # .elems also reifies
+        my $e := self.elems;
+        $e == $Inf
+            ?? fail('Pop from infinite array')
+            !! (
+                $e == 0
+                    ?? fail('Pop from empty array')
+                    !!  nqp::pop($!items)
+                );
+    }
+
     multi method perl(List:D \$self:) {
         self.gimme(*);
         self.Parcel.perl ~ '.list'