Re: (Sort of) poll: what Perl6 features do you consider {likely,desirable} to leak into P5?

[Joost]

One of the features I didn't expect to ever be supported by perl5, but is available (as a beta) right now: Object attributes done right. (I saw Abigail's presentation at the Dutch Perl Workshop last month, and I was pretty impressed)

[Juerd]

Object attributes done right

Where right is some weird kind of right that includes source filtering :)

[Joost]

That's true, but until perl6 shows up, I don't think there's another way of making inside-out objects that convenient.

[Anonymous Monk]

Ever benchmark inside out objects? It can't be good

[Joost]

Hmmm.....

#!/usr/local/bin/perl -w
use strict;

package CA;
use base 'Class::Accessor';

__PACKAGE__->mk_accessors(qw(a b c));

package LA;

use Lexical::Attributes;

sub new {bless [] => shift}

has $.a is rw;
has $.b is rw;
has $.c is rw;


package main;

use Benchmark;

my %methods = map {
    my $name = $_;
    $_ => sub {
        my $object = $name->new;
        $object->a(1);
        $object->b(2);
        $object->c(3);
    }
} qw(CA LA);

timethese (500000, \%methods);

__END__
Benchmark: timing 500000 iterations of CA, LA...
        CA: 10 wallclock secs (10.25 usr +  0.02 sys = 10.27 CPU) @ 48
+685.49/s (n=500000)
        LA:  7 wallclock secs ( 5.98 usr +  0.00 sys =  5.98 CPU) @ 83
+612.04/s (n=500000)

Doesn't look too shabby to me.