On Tue, Jul 31, 2001 at 07:52:13PM +0300, raptor wrote:
> script.pl
> ===========
> use Helper;
> my $callbackFunc = \&Helper::func;
> my $obj = new BigOne ( vals => $callbackFunc);
>
> BigOne.pm
> ==========
> my $vals = shift;
> ....
> if (ref $vals eq 'CODE') {
> ...........
> my $kv = &$vals( id => $selected, dbh => $$self{dbh} );
> ..............
> };
> ....
>
> See $kv gets the return value from Helper::func(), everything is OK until
> I need to pass one more parameter to this function which I don't know in
> BigOne.pm but know at script.pl....
my $callbackFunc = sub { &Helper::func(something=>$here, also=>$this, @_) }
maybe?
--
Khan said that revenge is a dish best served cold. I think
sometimes it's best served hot, chunky, and foaming.
- P.J.Lee ('79-'80)
[EMAIL PROTECTED]
http://sourceforge.net/projects/newbiedoc -- we need your brain!
http://www.dontUthink.com/ -- your brain needs us!
