Help for this page

Select Code to Download


  1. or download this
    package MyConsts;

...
use Exporter 'import';
our @EXPORT = map /([^:]+)$/, keys %constant::declared;
1;
  2. or download this
    #!/usr/bin/perl
use strict;
...
print "@{CONST4()}\n";     # -> foo bar
print "@{[CONST5]}\n";     # -> foo bar
print +(CONST5)[1], "\n";  # -> bar