Help for this page

Select Code to Download


  1. or download this
    use absolutify;
use English qw( -no_match_vars );
use Readonly qw( Readonly );
Readonly my $FOO => 12345;
print "foo: $FOO\nprogram: $PROGRAM_NAME\n";
  2. or download this
    use absolutify;
use English ();
use Readonly ();
Readonly::Readonly my $FOO => 12345;
print "foo: $FOO\nprogram: $English::PROGRAM_NAME\n";
  3. or download this
    package absolutify;

use Filter::Simple;
...
}

1;