You are looking at a jnote

if target of pets then purr;
##purr:
$purr = (deeply,softly,warmly,happily);
print "[$actor] purrs $purr and snuggles up to [$init_obj]";
Created by omenofdoom, last updated 06 Jul 2009