# New Ticket Created by Vasily Chekalkin
# Please include the string: [perl #54746]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=54746 >
Hello.
There is trivial implementation of 'pop' operator form for List.
--
Bacek.
Index: src/classes/List.pir
===================================================================
--- src/classes/List.pir (revision 27778)
+++ src/classes/List.pir (working copy)
@@ -1118,8 +1157,15 @@
.return list.'uniq'()
.end
-## TODO: join map reduce sort zip
+.sub 'pop' :multi('List')
+ .param pmc list
+ .return list.'pop'()
+.end
+
+
+## TODO: zip
+
=back
=cut
