my $self = Cats->new;
$self->pruring; # will set the key, since $_[0] is $self
Cats->purring;  # will treat the invocant ("Cats") as a hashref, since $_[0] is the package name