Help for this page

Select Code to Download


  1. or download this
    use warnings;
use strict;
...
# double-check that all values are equal to keys
use Test::More tests=>32;
is $_, $hash{$_}, qq{"$_"} for values %hash;
  2. or download this
    use Data::Dump;
my $var = '"T::c"';
dd $var;               # $var eq "\"T::c\""
$var =~ s/^"(.*)"$/$1/;
dd $var;               # $var eq "T::c"