From 6bbbeeef69005935f94f657a096fd986877157c7 Mon Sep 17 00:00:00 2001
From: hakim <hakim@vm-participo.(none)>
Date: Tue, 13 Jul 2010 22:09:45 +0100
Subject: [PATCH] take and While

---
 scratch/perl/kiokupipe/test.pl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/scratch/perl/kiokupipe/test.pl b/scratch/perl/kiokupipe/test.pl
index 45578b0..85d12f1 100644
--- a/scratch/perl/kiokupipe/test.pl
+++ b/scratch/perl/kiokupipe/test.pl
@@ -26,4 +26,7 @@
     my $map2 = $kioku->lookup('map');
 
     warn Dumper($map2);
+    warn Dumper( [ $map2->take(3) ] );
+    warn Dumper( [ $map2->While(sub { $_[0] < 8 })->take(10) ] );
+    warn Dumper($map2);
 }