Skip to content
Browse files

take and While

  • Loading branch information...
1 parent 197270e commit 6bbbeeef69005935f94f657a096fd986877157c7 hakim committed
Showing with 3 additions and 0 deletions.
  1. +3 −0 scratch/perl/kiokupipe/test.pl
View
3 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);
}

0 comments on commit 6bbbeee

Please sign in to comment.
Something went wrong with that request. Please try again.