DOKK / manpages / debian 12 / rex / Rex::Shared::Var.3pm.en
Rex::Shared::Var(3pm) User Contributed Perl Documentation Rex::Shared::Var(3pm)

Rex::Shared::Var - Share variables across Rex tasks

Share variables across Rex tasks with the help of Storable, using a "vars.db.$PID" file in the local directory, where $PID is the PID of the parent process.

 BEGIN {                           # put share in a BEGIN block
   use Rex::Shared::Var;
   share qw($scalar @array %hash); # share the listed variables
 }

Currently nesting data structures works only if the assignment is made on the top level of the structure, or when the nested structures are also shared variables. For example:

 BEGIN {
   use Rex::Shared::Var;
   share qw(%hash %nested);
 }
 
 # this doesn't work as expected
 $hash{key} = { nested_key => 42 };
 $hash{key}->{nested_key} = -1; # $hash{key}->{nested_key} still returns 42
 
 # workaround 1 - top level assignments
 $hash{key} = { nested_key => 42 };
 $hash{key} = { nested_key => -1 };
 
 # workaround 2 - nesting shared variables
 $nested{nested_key}      = 42;
 $hash{key}               = \%nested;
 $hash{key}->{nested_key} = -1;

Share the passed list of variables across Rex tasks. Should be used in a "BEGIN" block.

 BEGIN {
   use Rex::Shared::Var;
   share qw($error_count);
 }
 task 'count', sub {
   $error_count += run 'wc -l /var/log/syslog';
 };
 after_task_finished 'count', sub {
   say "Total number of errors: $error_count";
 };
2023-03-06 perl v5.36.0