package MyConfig;
use constant (DOCUMENT_ROOT => "/var/www/");
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(DOCUMENT_ROOT); # This works
#our @EXPORT_OK = (DOCUMENT_ROOT); # But this does not work

1;

use MyConfig qw(DOCUMENT_ROOT);
print DOCUMENT_ROOT;

# If I do not use qw , I will get error of "DOCUMENT_ROOT" is not exported by 
the MyConfig module
# Why is qw importance is so significance here ?
# I thought qw is just a syntatic sugar of perl to make a list
# Thank you.


Send instant messages to your online friends http://uk.messenger.yahoo.com

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to