* Greg Matheson <[EMAIL PROTECTED]> [2007-02-25 06:10]:
> Line 16 of my module is:
>
> use constant {
> C1 => 'C1',
> C2 => 'C2',
>
> and it continues on this way to line 40.
>
> PREV => "PREV",
> COLORS => "COLORS",
> };
>
> What do I do now? constants doesn't seem to have a contemporary
> existence on CPAN distinct from perl.
Write the same thing without syntactic sugar from constant.pm.
sub C1 () { 'C1' }
sub C2 () { 'C2' }
# ...
sub PREV () { "PREV" }
sub COLORS () { "COLORS" }
--
*AUTOLOAD=*_;sub _{s/(.*)::(.*)/print$2,(",$\/"," ")[defined wantarray]/e;$1}
&Just->another->Perl->hack;
#Aristotle
