«

How to I pass a member function as a callback.

For a normal sub I would do this: \&myFunc,

but what do I do for a member func?
I tried this, but it doesn't work: \&$myClassInstance->myFunc()
I also tried a number of other things.

~S

"Shea Martin" <> wrote:
> How to I pass a member function as a callback.
>
> For a normal sub I would do this: \&myFunc,
>
> but what do I do for a member func?
> I tried this, but it doesn't work: \&$myClassInstance->myFunc()
> I also tried a number of other things.
>
> ~S

sub { $myClassInstance->myFunc(@_) }

Xho

--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB

"Shea Martin" <> wrote in news:RQvAe.59661
$:

> How to I pass a member function as a callback.

Instance methods do not exist independently of a specific instance of
the class. Just as you cannot cut the arm of a master knitter and send
it to another location, and expect it to work, you cannot expect an
instance method to do anything useful without the rest of the object.

> For a normal sub I would do this: \&myFunc,>
> but what do I do for a member func?
> I tried this, but it doesn't work: \&$myClassInstance->myFunc()
> I also tried a number of other things.

You'll need to use a closure. The code below is untested (as you have
not provided any code -- see the recommendations in the posting
guidelines for this group on how you can maximize both the quantity and
quality of the help you receive by putting some effort into your post).

#!/usr/bin/perl

use strict;
use warnings;

package My::Handler;

sub new {
my $class = shift;
bless { }, $class;
}

sub handle {
my $self = shift;
print "Go away, I am handling this!\n";
}

package My:ispatcher;

sub new {
my $class = shift;
bless { }, $class;
}

sub register_callback {
my $self = shift;
$self->{callback} = shift;
}

sub generate {
my $self = shift;
$self->{callback}->();
}

package main;

my $dispatcher = My:ispatcher->new;
my $handler = My::Handler->new;
$dispatcher->register_callback( sub { $handler->handle } );

$dispatcher->generate;

__END__


--
A. Sinan Unur <>
(reverse each component and remove .invalid for email address)

comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/cl...uidelines.html

Shea Martin wrote:

> How to I pass a member function as a callback.

> I also tried a number of other things.

But, oddly, not the FAQ...

perldoc -q method