Help for this page

Select Code to Download


  1. or download this
    alias tperl='perl -I/home/myuserid/bin/lib -we'\''use strict; use P;'
tperl
...
my $dmp = Data::Dumper->new([\%Config], [ "Config" ]);        
$dmp->Indent(1)->Deepcopy(0)->Sortkeys(1)->Deparse(1)->Purity(1)->Quot
+ekeys(0);
printf "%s\n", $dmp->Dump;'
  2. or download this
    use FindBin qw($Bin); $FindBin::Bin =~ s{/bin/lib/?$}{/bin};
use lib ($FindBin::Bin . "/lib", $ENV{HOME} . "/bin/lib");
  3. or download this
    #!/usr/bin/perl
use warnings; use strict;
...
P "and is %s", _NODEBUG_ ? 
  "TRUE  (devel checks disabled)." :
  "FALSE (devel checks enabled)."