sub package_name {
  my @c = caller(0);
  "$c[3] (with self = $_[0])"
}