perl -we'use strict;use Data::Vars [qw (x y z)];
bless my $y={one=>1, two=>2}, q(hash);
my $p=__PACKAGE__->new({x=>[1,2,3], y=>$y});
if ($p->x(0)+$p->x(1) == $p->x(2)) {  $p->y($p->x)  }' 
Warning: var type redefined from "hash" to "" at /home/law/bin/lib/Data/Vars.pm line 113.
  Data::Vars::_Var(undef, 1, 2, 3) called at -e line 4