Re: Question about UNIVERSAL::can

A package does not have to be loaded to be useful e.g. we can add a sub to a package and then call it, even though we didn't load it:

% perl -E '*Some::Module::foo = sub { say "hello" }; Some::Module::foo
+()'
hello
[download]

thus it makes sense to be able to test it with can (whether we loaded it or not).

It seems that as an empty package can do nothing, searching for 'can' leads to nothing.

% perl -E 'say Some::Module->can("can")'
[download]

However this is not the case for a non-empty package:

% perl -E '*Some::Module::foo = sub { }; say Some::Module->can("can")'
+ 
CODE(0x259d370)
[download]

or even

% perl -E '*Some::Module::foo = sub { say "far out man!" }; say Some::
+Module->can("can")->("Some::Module", "foo")->()'
far out man!
1
[download]

Comment on Re: Question about UNIVERSAL::can Select or Download Code

Replies are listed 'Best First'.
Re^2: Question about UNIVERSAL::can by schetchik (Beadle) on May 29, 2013 at 21:18 UTC
Thank you for interesting examples. It's another interesting result, that follow from tobyink's link `$ perl -E'package Foo::Bar; say Foo->can("can")' CODE(0x1f4a220)` [download] I think, perl just show to symbol table and if data about package exists, that means package exists too, so perl starts inheritance. Otherwise it uses UIVERSAL without inheritance.	[reply] [d/l]