Michael Kingsbury wrote:

> The Win32::File uses ARCHIVE, READONLY, SYSTEM, HIDDEN, etc as constants
> for use with the file attribute types.  However, with use strict, perl
> barfs due to a bareword.
> 

they should be used the same way vars, subs are used. if they are exported, 
just use them. if they are not exported but is visible from outside the 
package they are declared, fully qualify them. example:

#!/usr/bin/perl -w
use strict;

#--
#-- Dog.pm
#--
package Dog;

use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(HI);

#--
#-- Export by default
#--
use constant HI => "hi\n";

#--
#-- not exported but is visible outside of package
#--
use constant HELLO => "hello\n";

1;

__END__

then in another script:

#!/usr/bin/perl -w
use strict;

use Dog;

print HI;
print Dog::Hello;

__END__

prints:

hi
hello

david

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to