Building an army

test/fixtures/perl/oo3.pl

@@ -0,0 +1,29 @@
+#! perl
+
+# Copyright (C) 2004-2006, Parrot Foundation.
+
+use strict;
+use warnings;
+
+my $o = new Foo();
+for my $i ( 1 .. 500000 ) {
+    my $x = $o->[0];
+    my $y = $o->[1];
+}
+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: