Building an army

test/fixtures/perl/oo2.pl

@@ -0,0 +1,27 @@
+#! perl
+
+# Copyright (C) 2004-2006, Parrot Foundation.
+
+use strict;
+use warnings;
+
+for my $i ( 1 .. 500000 ) {
+    my $o = new Foo();
+}
+my $o = new Foo();
+print $o->[0], "\n";
+
+package Foo;
+
+sub new {
+    my $self = ref $_[0] ? ref shift : shift;
+    return bless [ 10, 20 ], $self;
+}
+1;
+
+# Local Variables:
+#   mode: cperl
+#   cperl-indent-level: 4
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4: