package MyExists;

use Exporter qw( import );

@EXPORT = qw(my_exists);


sub my_exists {
  
  my ($string) = @_;
  
  if ( eval("exists($string)") ) {
   
    return "Yes!";
  }
  else {
    
    return "No!";
  }
  
}

1;

##</code><code>##

use MyExists qw(my_exists);

my %hash = ( 'test1' => 'value1', 'test2' => 'value2' );

print "Real exists: ";
print exists( $hash{'test1'} );
print "\n";

print "My exists: ";
print my_exists( $hash{'test1'} );
print "\n";

print "Real exists: ";
print exists( $hash{'test3'} );
print "\n";

print "My exists: ";
print my_exists( $hash{'test3'} );
print "\n";

##</code><code>##

Real exists: 1
My exists: No!
Real exists:
My exists: No!