Re^2: current/active package

Except,

sub woot
{
   my ($self) = @_;
   print __PACKAGE__, "\n"; # <-- prints "foo"
   print ref($self), "\n";  # <-- prints nothing
}
[download]

While,

sub woot
{
   my ($self) = @_;
   print __PACKAGE__, "\n"; # <-- prints "foo"
   print $self, "\n";       # <-- prints "bar"
}
[download]

I think this is because, in this simple example, the object was never blessed. Had it been blessed, I think ikegami's answer is correct.