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