/I3az/

PS. The comments threading on this post seem to have gone a bit out of kilter!? Sorry about that it looks to be a WordPress and/or theme funny.

fix is in, and your code entered as a test case, courtesy of doy (Jesse Leuhrs)

fix is in, and your example above is now entered as a moose test.

coutesy of doy (Jesse Leuhrs).

Its going to be a couple of weeks before I get time to test stuff on Moose 1.01 here. In meantime you could pass this by the Moose IRC or mailing list.

/I3az/

Still doesn’t work.

Also on 5.10.1. However I’m on Moose 0.94.

Looking thru the Moose changelogs (http://cpansearch.perl.org/src/FLORA/Moose-1.01/Changes) I see that at 0.89 it mentions:

Rename alias and excludes to -alias and -excludes (but keep the old names for now, for backcompat) (doy)


So it looks like the “backcompat” was probably dropped after 0.94 (probably at 1.00). So code should now be:

DoesTranspose->meta->apply( $p, -alias => { transpose => 'negated' } );

Thanks for the heads up. If you didn’t get any warnings then I’d better check all my code carefully when I do upgrade to 1.00 !!

/I3az/

In the earlier blocks of code, culminating with

Negated->meta->apply( $p );

I get the values indicated in the comments

$p->negated->inspect;     # => 3 @ 4
$p->transpose->inspect;   # => 3 @ 4

But in the final “wrap it all up” block after

DoesTranspose->meta->apply( $p, alias => { transpose => 'negated' } );

the calls to

$p->negated->inspect;     # => 3 @ 4
$p->transpose->inspect;   # => 3 @ 4

I don’t get the values in the comments, but instead the same values as before the

-4 @ -3
3 @ 4

In other words,

DoesTranspose->meta->apply( $p, alias => { transpose => 'negated' } );

does not have the expected impact on subsequent calls to the object methods.

I’m running Moose 1.01, perl 5.10.1. I hope this clarification helps.

It works here fine (and I double checked by pasting it back from blog as well).

Remember that the inspect method uses say so you will need to have that loaded either by:

use 5.010;

or if instead you’re using an older perl:

use Perl6::Say;

Alternatively just change that inspect method to use print:

sub inspect { print "$_[0]->{x} \@ $_[0]->{y}\n" };

If the problem is something else then let me know.

/I3az/