Bug #41255 for Class-MOP: Class::MOP::Class->get_method_map does not see stub methods (but Perl itself does)

Wed Nov 26 19:57:20 2008 gfuji [...] cpan.org - Ticket created

Hello. When writing Class::MOP::Class->get_method_map() in XS, I found that it is inconsistent. Geven the following class: #!perl -w { package Base; sub m1{ 'foo' } sub m2{ 'bar' } } { package Derived; use parent -norequire => qw(Base); sub m1; # stub sub m2 :method; # stub with an attribute } eval{ Derived->m1() } or warn $@; eval{ Derived->m2() } or warn $@; __END__ The Perl method dispatch mechanism will find m1() and m2() in Derived and throw fatal errors like "Undefined subroutine &Derived::m1 called at...". Class::MOP::Class->get_method_map(), however, won't find m1() in Derived, while finding m2() in Derived. I think it should find m1() in Derived as Perl does. Regards, -- Goro Fuji (GFUJI at CPAN.org)

Wed Nov 26 19:59:42 2008 gfuji [...] cpan.org - Correspondence added

Oh, I have forget to attach a test script. -- Goro Fuji (GFUJI at CPAN.org)

#!perl -w use strict; use Test::More tests => 5; use Class::MOP; { package Base; sub m1{ 1 } sub m2{ 2 } sub m3{ 3 } sub m4{ 4 } sub m5{ 5 } package Derived; use parent -norequire => qw(Base); sub m1; sub m2 (); sub m3 :method; sub m4; m4() if 0; sub m5; our $m5; } my $meta = Class::MOP::Class->initialize('Derived'); foreach my $method('m1' .. 'm5'){ is $meta->find_method_by_name($method)->fully_qualified_name, "Derived::$method"; }

Wed Nov 26 19:59:45 2008 gfuji [...] cpan.org - Status changed from 'new' to 'open'

Wed Nov 26 19:59:53 2008 gfuji [...] cpan.org - Correspondence added

Oh, I have forget to attach a test script. -- Goro Fuji (GFUJI at CPAN.org)

#!perl -w use strict; use Test::More tests => 5; use Class::MOP; { package Base; sub m1{ 1 } sub m2{ 2 } sub m3{ 3 } sub m4{ 4 } sub m5{ 5 } package Derived; use parent -norequire => qw(Base); sub m1; sub m2 (); sub m3 :method; sub m4; m4() if 0; sub m5; our $m5; } my $meta = Class::MOP::Class->initialize('Derived'); foreach my $method('m1' .. 'm5'){ is $meta->find_method_by_name($method)->fully_qualified_name, "Derived::$method"; }

Tue Dec 02 17:25:18 2008 DROLSKY [...] cpan.org - Subject changed from (no value) to 'Class::MOP::Class->get_method_map does not see stub methods (but Perl itself does)'

Thu Dec 04 21:06:39 2008 rafl [...] debian.org - Status changed from 'open' to 'resolved'