Hi,
I see the following when calling $self->meta->add_attribute in my code under
perl 5.10.1:
Use of uninitialized value in string eq at
.../perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Moose/Meta/Attribute.pm line
1035.
I think the following code segment:
if (
$method
&& !$method->is_stub
&& !$method->isa('Class::MOP::Method::Accessor')
&& ( !$self->definition_context
|| $method->package_name eq $self->definition_context->{package} )
) {
should look like:
if (
$method
&& !$method->is_stub
&& !$method->isa('Class::MOP::Method::Accessor')
&& ( !$self->definition_context
|| exists(self->definition_context->{package}) && $method->package_name eq
$self->definition_context->{package} )
) {
--
Yuri
