Re^3: Noob OO Question

Here's a sub-question regarding this. So, I tried dereferencing it by running this.

my $testing = $self->{test_b};
print $$testing->();
[download]

This works!! But how come I cannot do this?

print $$self->{test_b}->();
[download]

It gives us this output.

Not a SCALAR reference at Hi.pm
[download]

Also, how do I dereference '$test->method_d()'?

Comment on Re^3: Noob OO Question Select or Download Code

Replies are listed 'Best First'.
Re^4: Noob OO Question by JavaFan (Canon) on Jun 08, 2010 at 00:01 UTC
`$$self->{test_b}->()` first dereferences `$self`. Writing `$self->{test_b}->()` should work. Or without arrows: `&{$$self{test_b}}()`. Note the placement of the outer parens. Also, how do I dereference '$test->method_d()'? You don't. `$test->method_d()` returns a string.	[reply] [d/l] [select]
Re^5: Noob OO Question by Anonymous Monk on Jun 08, 2010 at 00:12 UTC
Typing it like this doesn't work for me. `$self->{test_b}->()` [download] It gives me this output. `Not a CODE reference at Hi.pm` [download]	[reply] [d/l] [select]
Re^6: Noob OO Question by ikegami (Patriarch) on Jun 08, 2010 at 04:59 UTC
Better yet, change `my $test = new Hi( test_a => 'hello', test_b => \sub{ return 1 }, test_c => \sub{ get_me( $get_a, $get_b ) }, );` [download] to `my $test = new Hi( test_a => 'hello', test_b => sub{ return 1 }, test_c => sub{ get_me( $get_a, $get_b ) }, );` [download] There's no reason for the extra level of indirect.	[reply] [d/l] [select]
Re^6: Noob OO Question by bluescreen (Friar) on Jun 08, 2010 at 00:21 UTC
Try this: `${$self->{test_b}}->();` [download]	[reply] [d/l]