Help for this page

Select Code to Download


  1. or download this
    {
  no warnings;
  use constant TEST => 2;
}
  2. or download this
    % perl -Mstrict -wle 'use constant x => 1; { no warnings; use constant
+ x => 4; } print x'
Constant subroutine main::x redefined at /opt/lib/perl5/5.8.3/constant
+.pm line 108.
4