#!/usr/bin/env perl

use lib qw{blib/arch blib/lib};

use strict;
use warnings;

use Variable::Magic qw/wizard cast/;

my $w = wizard map {
 my $s = $_; $s => sub { print STDERR "$s $_[2]!\n" }
} qw/fetch store exists delete/;
my %h;
cast %h, $w;
$h{'foo'} = 1;
print STDERR "#", $h{'foo'}, "#\n";
my $y = exists $h{'foo'};
delete $h{'foo'};
