25_var.pm

   1 use strict;
   2 use warnings;
   3
   4 # 1.10.0 200410151900 - actions sto/?/rcl to copy/assign/recall variable
   5
   6 my %var;
   7
   8 #       "sto"   => [ 1, sub { $var{a} = $_[0] }], # copy
   9 #       '?'     => [ 1, sub { $var{a} = $_[0] }], # assign
  10 $action{sto} = [ 1, sub { $var{a} = $_[0] }]; # copy
  11 $action{rcl} = [ 0, sub { $var{a} }]; # recall
  12
  13 return {
  14         author  => "Shiar",
  15         title   => "user variables",
  16         version => "1.10",
  17 };
  18