Importing Variable-Magic-0.07_02.tar.gz

[perl/modules/Variable-Magic.git] / samples / uvar.pl

diff --git a/samples/uvar.pl b/samples/uvar.pl
new file mode 100755 (executable)
index 0000000..6620aec
--- /dev/null
+++ b/samples/uvar.pl
@@ -0,0 +1,18 @@
+#!/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'};