barewords - create "strictable" barewords

barewords documentation Contained in the barewords distribution.

Index

Code Index:

NAME

Top

barewords - create "strictable" barewords

SYNOPSIS

Top

  use barewords qw(foo bar);

  $v = foo;
  print "$v\n"; # prints foo

DESCRIPTION

Top

this module creates constants whose values are their own names.

SEE ALSO

Top

constant.

COPYRIGHT AND LICENSE

Top

Copyright (C) 2005 by Salvador Fandiño <sfandino@yahoo.com>.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

barewords documentation Contained in the barewords distribution. 
package barewords;

our $VERSION = '0.01';

require constant;

sub import {
    my %constants = map { $_ => $_ } @_;
    @_ = (constant => \%constants);
    goto &constant::import;
}

1;

__END__