make_immutable bug?

Hi all,
    Is this a Moose make_immutable bug?


# a.pm

package a;
use Moose::Role;

1;

# b.pm
package b;
use Moose;
around 'BUILDARGS' => sub {
    my $orig = shift;
    my $self = shift;
    with 'a';
    $self->$orig;
};
sub BUILD {
    my $self  = shift;
    $self->meta->make_immutable;
}

1;

#a.pl
#!/usr/bin/perl
use strict;
use warnings;

use b;

my $c = b->new();
my $d = b->new();




$perl a.pl
The 'Class::MOP::Class::Immutable::Moose::Meta::Class=HASH(0x6d7a90)'
method cannot be called on an immutable instance at
/opt/csw/lib/perl/site_perl/Class/MOP/Class/Immutable/Trait.pm line 32

Class::MOP::Class::Immutable::Trait::_immutable_cannot_call('Class::MOP::Class::Immutable::Moose::Meta::Class=HASH(0x6d7a90)')
called at /opt/csw/lib/perl/site_perl/Moose/Meta/Class/Immutable/Trait.pm
line 17
        Class::MOP::Class:::around('CODE(0x3b3580)',
'Class::MOP::Class::Immutable::Moose::Meta::Class=HASH(0x6d7a90)',
'Moose::Meta::Role=HASH(0x7cdaa0)') called at
/opt/csw/lib/perl/site_perl/Class/MOP/Method/Wrapped.pm line 162

Class::MOP::Method::Wrapped::__ANON__('Class::MOP::Class::Immutable::Moose::Meta::Class=HASH(0x6d7a90)',
'Moose::Meta::Role=HASH(0x7cdaa0)') called at
/opt/csw/lib/perl/site_perl/Class/MOP/Method/Wrapped.pm line 91

Class::MOP::Class::Immutable::Moose::Meta::Class::add_role('Class::MOP::Class::Immutable::Moose::Meta::Class=HASH(0x6d7a90)',
'Moose::Meta::Role=HASH(0x7cdaa0)') called at
/opt/csw/lib/perl/site_perl/Moose/Meta/Role/Application/ToClass.pm line 38

Moose::Meta::Role::Application::ToClass::apply('Moose::Meta::Role::Application::ToClass=HASH(0x7bd1b0)',
'Moose::Meta::Role=HASH(0x7cdaa0)',
'Class::MOP::Class::Immutable::Moose::Meta::Class=HASH(0x6d7a90)',
'HASH(0x7d22d0)') called at /opt/csw/lib/perl/site_perl/Moose/Meta/Role.pm
line 470
        Moose::Meta::Role::apply('Moose::Meta::Role=HASH(0x7cdaa0)',
'Class::MOP::Class::Immutable::Moose::Meta::Class=HASH(0x6d7a90)') called
at /opt/csw/lib/perl/site_perl/Moose/Util.pm line 160

Moose::Util::_apply_all_roles('Class::MOP::Class::Immutable::Moose::Meta::Class=HASH(0x6d7a90)',
undef, 'a') called at /opt/csw/lib/perl/site_perl/Moose/Util.pm line 99

Moose::Util::apply_all_roles('Class::MOP::Class::Immutable::Moose::Meta::Class=HASH(0x6d7a90)',
'a') called at /opt/csw/lib/perl/site_perl/Moose.pm line 67

Moose::with('Class::MOP::Class::Immutable::Moose::Meta::Class=HASH(0x6d7a90)',
'a') called at /opt/csw/lib/perl/site_perl/Moose/Exporter.pm line 370
        Moose::with('a') called at b.pm line 6
        Class::MOP::Class:::around('CODE(0x626410)', 'b') called at
/opt/csw/lib/perl/site_perl/Class/MOP/Method/Wrapped.pm line 162
        Class::MOP::Method::Wrapped::__ANON__('b') called at
/opt/csw/lib/perl/site_perl/Class/MOP/Method/Wrapped.pm line 91
        b::BUILDARGS('b') called at constructor b::new (defined at
b.pmline 11) line 6
        b::new('b') called at a.pl line 8



-- 
woosley.xu.    http://twitter.com/redicaps