package barewords;
our $VERSION = '0.01';
require constant;
sub import {
my %constants = map { $_ => $_ } @_;
@_ = (constant => \%constants);
goto &constant::import;
}
1;
__END__
=head1 NAME
barewords - create "strictable" barewords
=head1 SYNOPSIS
use barewords qw(foo bar);
$v = foo;
print "$v\n"; # prints foo
=head1 DESCRIPTION
this module creates constants whose values are their own names.
=head1 SEE ALSO
L<constant>.
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2005 by Salvador FandiE<ntilde>o E<lt>sfandino@yahoo.comE<gt>.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut