mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
30 lines
429 B
Perl
30 lines
429 B
Perl
#! 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:
|