| Subject: | Interaction with Tie::StrictHash |
use Tie::StrictHash;
use Data::Dump;
my $item = {
a => foo,
b => bar,
};
my $dumped = Data::Dump::dump($item)."\n";
print "Before strict hash: $dumped";
$dumped !~ /bar/ and die "No bug here";
strict_hash %$item;
###After strict hash.
$dumped = Data::Dump::dump($item);
print "After strict hash: $dumped";
$dumped !~ /bar/ and die "There's a bug here";