#!/usr/bin/env perl

use 5.012;
use warnings;

use Data::Dump qw/dump/;

my %hash = (
    some    => 'original',
    keys    => 'for reference',
);

tie my %local, 'RJT::LocalHash', \%hash;

$local{foo} = 'bar';
delete $local{some};
$local{keys} =~ y/e/E/; # Still uses FETCH
$hash{both} = 'Operations on original hash affect both';

dump \%local;
dump \%hash;