In fact I am still unsure whether it is better to always tie to Tie::Static, or to tie to the actual package that you are blessed into. There is something to be said for a consistent interface. There is also something to be said for not violating expectations about what tied is.

Well, it's not uncommon to see constructors bless their objects into other classes, so I don't think it's fair for a user to expect that tied return a reference blessed into the original class. Of course, we've seen a few people confused by the former, so it's safe to assume that some people will be confused by the latter.

Do you think it is clear enough to warn people away from that map trick?

I don't think so; it's a subtle bug that's easy for us to spot since we're familiar with the implementation, but for a casual user of the module, it wouldn't be obvious, even after reading through the bugs section. In general, I think one should enumerate the failure modes of a module as much as reasonably possible. I usually find that such documentation helps improve my understanding of a module's internals.

Then people can just call: static my ($foo, $bar, $baz); Yes? No? Maybe?

I really like this, though I'm a confessed syntactic sugar addict. It's much less verbose than the original interface, and nicely abstracts away the whole tied issue from view. The cost is another layer of indirection, though if you're using this module, performance is probably not high on your list of priorities. I also think that static should apply to lists and hashes:

sub static {
  my $called = join ":", caller();
  my $uniq;
  for (@_) {
    if    (!ref)            { tie  $_, 'Tie::Static', $called, $uniq++
+ }
    elsif (ref eq 'SCALAR') { tie $$_, 'Tie::Static', $called, $uniq++
+ }
    elsif (ref eq 'ARRAY')  { tie @$_, 'Tie::Static', $called, $uniq++
+ }
    elsif (ref eq 'HASH')   { tie %$_, 'Tie::Static', $called, $uniq++
+ }
  }
}

# usage
static my $foo;
static \ my ($foo, @bar, %baz);
[download]

It has also occured to me that there should be a way to properly initialize a static variable. Although one could write:

static my $foo;
$foo = 'blah' unless defined $foo;
[download]

The second line could re-initialize $foo after it has been intentionally undef'd. I have some ideas about how to do this, but none of them are very pretty. Any thoughts?

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

---

---

• 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.