Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
$h{- f()} =  '-()';
$h{ +f()} =  '+()';
print "\n",dump(\%h),"\n";
  2. or download this
    ->f()->f()->f()->f()->f()
{ "-1" => "-()", "-f" => "- F", "1" => "-()", "1.0" => "+()", "f" => "
+  F" }
  3. or download this
    use strict;
use warnings;
use Data::Dump qw(dump);
...
    +f()  => '+()',
);
print "\n",dump(\%h),"\n";
  4. or download this
    ->f()->f()->f()
{ "-1" => "-()", "-f" => "- F", "1" => "-()", "1.0" => "+()", "f" => "
++ F" }