#! perl # Copyright (C) 2004-2006, Parrot Foundation. # $Id: oo3.pl 37201 2009-03-08 12:07:48Z fperrad $ 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: