/*
 * Accept input from Perl for later use. We just save what
 * we’re given here because we may not have the specdef
 * available to parse it with at this time. To deal with
 * Perl’s horrible reference count system, we create a new
 * reference here to whatever we’re given. That way we’ll
 * increment the reference count of the object when it’s
 * given to us, and we have to decrement the refcount when
 * we’re done with this object. Ugly, but hey, that’s Perl!
 */

Source: Direct link to the source code
Software: P4Perl
Programming language: Perl