sub exists {
  ... blah ...
}

##</code><code>##

use MyPackage;
my $obj = MyPackage->new();
$obj->set_value('foo', 'bar');
if($obj->exists('foo')) {
    print "that key is there\n";
}