A simple implementation 

package Devel::Canary::Hash;

sub TIEHASH {
    my($class) = @_;
    return bless {}, $class;
}

sub FETCH {
    my($self, $key) = @_;
    die "Fatal attempt to access hashref->{$key}";
}