Help for this page

Select Code to Download


  1. or download this
    # file: constant.pm
package constant;
...
}

1;
  2. or download this
    # file: A.pm
package A;
...
}

1;
  3. or download this
    #!/usr/bin/perl
# file: example.pl
...
use constant { VALUE => 1_000_000 }; # this overrides VALUE
use A;
A->func();