Bug #49704 for UNIVERSAL-can: (Query) Is UNIVERSAL::can generating spurious warnings for autobox.pm?

Mon Sep 14 19:59:13 2009 hisso [...] cpan.org - Ticket created

Subject:

(Query) Is UNIVERSAL::can generating spurious warnings for autobox.pm?

More a query than a bug per se... but might be a bug. The module autobox.pm (v2.55) has these lines at line 105, 106: *{"$class\::can"} = sub { shift; UNIVERSAL::can($class, @_) } \ unless (*{"$class\::can"}{CODE}); *{"$class\::isa"} = sub { shift; UNIVERSAL::isa($class, @_) } \ unless (*{"$class\::isa"}{CODE}); I raised a ticket against autobox (see RT #49273) but now I'm wondering if autobox is actually trying to do the right thing(?). Beyond my Perl I'm afraid.

Mon Sep 14 21:51:54 2009 hisso [...] cpan.org - Correspondence added

Sorry -- should probably add the warning: Called UNIVERSAL::can() as a function, not a method at [...]/autobox.pm line 105 The warning for line 106 is similar but related to UNIVERSAL:isa: Called UNIVERSAL::isa() as a function, not a method at [...]/autobox.pm line 106

Mon Sep 14 21:51:55 2009 hisso [...] cpan.org - Status changed from 'new' to 'open'

Thu Jan 14 18:36:15 2010 chromatic [...] cpan.org - Correspondence added

I think it's a combination of bugs. autobox ought to use the $class->can(@_) syntax, but the heuristic for detecting method calls in UNIVERSAL::can and UNIVERSAL::isa is sufficiently unreliable. autobox *could* work around this by naming the anonymous subs installed in the can() and isa() slots (local *__ANON__ = '...'; or one of the Devel:: modules), or it could specifically disable the warnings from U::c and U::i. The latter seems like a hack. The former... well, I could argue it's useful. It's a bit more invasive, but if chocolateboy finds it useful, it's my preference. The fragility of the heuristics in U::c and U::i bother me. Here's what I used to suppress the warnings. I didn't test it with the rest of the autobox suite: *{"$class\::can"} = sub { local *__ANON__ = 'can'; shift; $class->SUPER::can(@_) } unless (*{"$class\::can"}{CODE}); *{"$class\::isa"} = sub { local *__ANON__ = 'isa'; shift; $class->SUPER::isa(@_) } unless (*{"$class\::isa"}{CODE});

Sun Jun 12 21:35:19 2011 chromatic [...] cpan.org - Correspondence added

autobox 2.60 fixed this. Resolving.

Sun Jun 12 21:35:20 2011 chromatic [...] cpan.org - Status changed from 'open' to 'resolved'