#! perl # Copyright (C) 2004-2007, Parrot Foundation. # $Id: oo6.pl 37201 2009-03-08 12:07:48Z fperrad $ use strict; use warnings; my $o = new Foo(); for my $i ( 1 .. 500000 ) { $o->i($i); $o->j($i); } print $o->i, "\n"; package Foo; sub new { my $self = ref $_[0] ? ref shift : shift; return bless [ 10, 20 ], $self; } sub i { my $self = shift; if (@_) { return $self->[0] = shift } else { return $self->[0] } } sub j { my $self = shift; if (@_) { return $self->[1] = shift } else { return $self->[1] } } 1; # Local Variables: # mode: cperl # cperl-indent-level: 4 # fill-column: 100 # End: # vim: expandtab shiftwidth=4: