Re: __PACKAGE__ interpolated before inheritence

[wog]

If you want the id method to always return the package the object is blessed to you could just use ref:

sub id { ref $_[0] }

[Beatnik]

Not always but close enough :) I'm confused why __PACKAGE__ wont work.

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.

[wog]

__PACKAGE__ is turned into, at compile time, the current package when it is compiled. (That is, the one established by package statements.)

[blakem]

To see this in action:

% perl -MO=Deparse -e 'use constant Y => "foo"; $x="bar"; return __PAC
+KAGE__, $x, Y'

  sub Y () {
      package constant;
      $scalar;
  }
  $x = 'bar';
  return 'main', $x, 'foo';   # <=== inlined values at compile time...

Notice that __PACKAGE__ and the constant Y got inlined at compile time, whereas $x did not.

-Blake