Help for this page

Select Code to Download


  1. or download this
    # This is file Test1.pm
package Test1;
...
# This is file Test3.pm
package Test;
# End of File
  2. or download this
    foreach my $name (qw(Test1 test2 Test3)) {
  unless(file_defines_package_of_same_name($name)) {
    print "$name\n";
  }
}
  3. or download this
    test2
Test3
  4. or download this
    # NOT TESTED!!!!
sub file_defines_package_of_same_name
...
    defined(eval 'scalar(keys(%'.$name.'::))');
  }
}