X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=samples%2Fuvar.pl;fp=samples%2Fuvar.pl;h=6620aec4f8952bb9213980796a768c25ba7aa6ea;hb=6f35a291f0c453d34b617ee9eb03d2a68c410614;hp=0000000000000000000000000000000000000000;hpb=183e73e0590b46550dfa6fdd4b6cf3280c1a5877;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/samples/uvar.pl b/samples/uvar.pl
new file mode 100755
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'};