# NOT TESTED!!!!
sub file_defines_package_of_same_name
{
  my $name=shift;
  eval {  
    require $name;
    { no strict; $name->import(); } # I guess I don't need this, do I?
    defined(eval 'scalar(keys(%'.$name.'::))');
  }
}