Re: [ooperl] calling reference to a annonymous sub

in reply to [ooperl] calling reference to a annonymous sub

From what I understand about packages, namespaces and scope, you're missing two things:

$get_data_sub should be declared with our, as in:
```
% perl -wle'package foo; our $bar = "10"; package main; print $foo::ba
+r'
10
[download]
```
Trying the same with my will result in a warning when you try to print an uninitialized variable.

in your addbook package, add the correct sigil to the variable, i.e. $DbManager::get_db_data

Hope this helps.

Comment on Re: [ooperl] calling reference to a annonymous sub Download Code

Replies are listed 'Best First'.
Re^2: [ooperl] calling reference to a annonymous sub by tphyahoo (Vicar) on Nov 07, 2005 at 09:45 UTC
Yes, and elaborating that so it works with an anonymous sub: `#!/usr/bin/perl #anonysub.pl #use strict; #use warnings; package foo; our $bar = "10\n"; our $anonysub = sub { print "10\n"}; package main; print $foo::bar; &$foo::anonysub(); #before BUU's comment $foo::anonysub->(); #after BUU's comment` [download] outputs: `10 10` [download] (The syntax of the final line took me a bit of trial and error to get it right!) UPDATE: added another way to do it as BUU suggests below, which, I agree, is cleaner.	[reply] [d/l] [select]
Re^3: [ooperl] calling reference to a annonymous sub by BUU (Prior) on Nov 07, 2005 at 10:29 UTC
Just a note, generally it's easier and cleaner to use the `->()` syntax to call subroutine references, as in your example: `$foo::sub->()`.	[reply] [d/l] [select]

In Section Seekers of Perl Wisdom