Select Code to Download

use Hash::AsObject;
my $h = Hash::AsObject->new( foo => "bar" );
...
use Util::H2O;
my $o = h2o { foo => "bar" };
print $o->fOo, "\n";  # dies