0.006 release
[poe-xs-queue-array.git] / leak.pl
1 #!/usr/bin/perl -w
2 use POE::XS::Queue::Array;
3 my $q = POE::XS::Queue::Array->new;
4 # or
5 #use POE::Queue::Array;
6 #my $q = POE::Queue::Array->new;
7
8 print "inital: \n";
9 system "ps -o rss -p $$";
10 for (1..2000){
11 my $id = $q->enqueue($_ % 4, "payload $_");
12 $q->dequeue_next;
13 }
14 system "ps -o rss -p $$";
15 for (1..2000){
16 my $id = $q->enqueue($_ % 4, "payload $_");
17 $q->dequeue_next;
18 }
19 system "ps -o rss -p $$";
20