The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

sub cache { my ($class, $value, $node) = @_; if ($node) { Class::RDF::Cache->cache->add( "_node:$value", $node ); return $node; } else { return Class::RDF::Cache->cache->get( "_node:$value" ); } }