I know you can do this with closures, but I'm wondering if there is a better way. Here is the example:

a();
b();
print "$var\n";

sub a {
 local $var = "a\n";
  c();
}

sub b {
  local $var = "b\n";
  c();
}

sub c {
  # i'm pleasing you to print a or b
  print "var: $var";
}
[download]

So you can see, I want c() to have access to the calling sub's my variables. I know that if I eval the creation of that sub in a() or b() it will work, however I don't want to have to do that for every sub that calls c().

Is there a hack to do the above?

If not, here is my next best choice... the sub c() is actually spit out by a class and evaled in the callers package, is it possible to have the eval happen in the callers namespace?

That is:

$b = new SubMaker();
sub a {
   my $var;
   $b->make_sub("subname");
   subname();
}
[download]

where SubMaker::make_sub() evals in the callers namespace so that subname() now has access to $var. Is that possible?

thanks.

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.