Help for this page

Select Code to Download


  1. or download this
    use warnings;
use strict;
...

## use smartmarch ~~
$empty_str ~~ $empty_hash_ref ? print "PASS" : print "FAIL"; ## print 
+PASS
  2. or download this
      my $empty_str = q{};
  my $empty_hash_ref = {};  ## why?
...
   }

   $empty_str~~$empty_hash_ref?print "PASS": print "FAIL"; # print FAI
+L