Re^2: Detecting an imported function

So far this is looking like a great solution. It's eliminated the need for me to worry about other solutions. I may do more work with this in the future, but for now this is wonderful. Thanks!

Cheers,
Ovid

New address of my CGI Course.

Comment on Re^2: Detecting an imported function

Replies are listed 'Best First'.
Re^3: Detecting an imported function by diotalevi (Canon) on Nov 18, 2005 at 05:20 UTC
By placing this at the end of my file, it runs after all use() and ->import has occurred. Any imported methods will be visible now. Because my caller called me with a use() call, this code is run during the BEGIN-time of my caller. This is what I imagined tye was suggesting. `package Example; use vars qw( @Methods ); use Anything::You::Like; ... no strict 'refs'; @Methods = grep *{__PACKAGE__ . "::$_"}{CODE}, $keys %{__PACKAGE__ . " +::"}; 1;` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Detecting an imported function
by diotalevi (Canon) on Nov 18, 2005 at 05:20 UTC

By placing this at the end of my file, it runs after all use() and ->import has occurred. Any imported methods will be visible now. Because my caller called me with a use() call, this code is run during the BEGIN-time of my caller. This is what I imagined tye was suggesting.

package Example;
use vars qw( @Methods );
use Anything::You::Like;
...
no strict 'refs';
@Methods = grep *{__PACKAGE__ . "::$_"}{CODE}, $keys %{__PACKAGE__ . "
+::"};

1;
[download]

[reply]
[d/l]