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

##</code><code>##

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