#!/usr/bin/perl # Copyright (C) 2004-2006, Parrot Foundation. use strict; use warnings; for my $i ( 1 .. 100000 ) { 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: