Re: Code reference problem

You got bitten by precedence:

&$self -> { CALLBACK }{ ALL } -> ( $tref );
[download]

deparses as

&{$self} -> { CALLBACK }{ ALL } -> ( $tref );
[download]

What you want is:

$self-> { CALLBACK }{ ALL } -> ( $tref );
[download]

&{ $self-> { CALLBACK }{ ALL } }( $tref );
[download]

Comment on Re: Code reference problem Select or Download Code

Replies are listed 'Best First'.
Re^2: Code reference problem by Moron (Curate) on Jan 04, 2007 at 15:08 UTC
or even `&{ $self-> { CALLBACK }{ ALL } }( $tref ) );` Well spotted Corion, and many thanks! -M Free your mind	[reply] [d/l]
Re^3: Code reference problem by Moron (Curate) on Jan 04, 2007 at 15:57 UTC
grrr! I even got that wrong of course. The & shouldn't have a lower operator precedence than the actual parameter list ( $tref ), even though that compiles strangely enough. But when I use Corion's seemingly correct version, it won't compile :( -M Free your mind	[reply]
Re^4: Code reference problem by shmem (Chancellor) on Jan 04, 2007 at 16:19 UTC
The ampersand is not needed. And `if ( defined( my $coderef = $self -> { CALLBACK }{ ALL } ) ) { $coderef -> ( $tref );` [download] avoids deref clutter. --shmem _($_=" "x(1<<5)."?\n".q·/)Oo. G°\ / /\_¯/(q / ---------------------------- \__(m.====·.(_("always off the crowd"))."· ");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}	[reply] [d/l]
Re^5: Code reference problem by Moron (Curate) on Jan 04, 2007 at 16:34 UTC
Re^4: Code reference problem by kwaping (Priest) on Jan 04, 2007 at 16:10 UTC
Do you get any message from the compilation error? You might want to throw a `use warnings` in there as well. --- It's all fine and dandy until someone has to look at the code.	[reply] [d/l]