$SIG{__DIE__} = sub {
    Dump( $obj->{val}->{one} );
    die $_[0];
};

{
    package foo;
    use Tie::IxHash;
    tie(my %h, 'Tie::IxHash', qw(one two three four));

    sub new { bless { val => \%h } }
    sub val : lvalue  { $_[0]->{val}->{one} }
}
use Devel::Peek;
my $obj =  foo->new;
#  dies here
$obj->val = "foo";


##</code><code>##

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;