/usr/share/perl5/Rex/Shared/Var.pm is in rex 1.4.1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 | #
# (c) Jan Gehring <jan.gehring@gmail.com>
#
# vim: set ts=2 sw=2 tw=0:
# vim: set expandtab:
=head1 NAME
Rex::Shared::Var - Share variables across Rex tasks
=head1 DESCRIPTION
Share variables across Rex tasks with the help of Storable, using a C<vars.db.$PID> file in the local directory, where C<$PID> is the PID of the parent process.
=head1 SYNOPSIS
BEGIN { # put share in a BEGIN block
use Rex::Shared::Var;
share qw($scalar @array %hash); # share the listed variables
}
=head1 METHODS
=cut
package Rex::Shared::Var;
use strict qw(vars subs);
use warnings;
our $VERSION = '1.4.1'; # VERSION
require Exporter;
use base qw(Exporter);
use vars qw(@EXPORT);
@EXPORT = qw(share);
=head2 share
Share the passed list of variables across Rex tasks. Should be used in a C<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";
};
=cut
sub share {
my @vars = @_;
my ( $package, $file, $line ) = caller;
my ( $sigil, $sym );
for my $var (@vars) {
if ( ( $sigil, $sym ) = ( $var =~ /^([\$\@\%\*\&])(.+)/ ) ) {
$sym = "${package}::$sym";
if ( $sigil eq "\$" ) {
eval "use Rex::Shared::Var::Scalar;";
tie $$sym, "Rex::Shared::Var::Scalar", $sym;
*$sym = \$$sym;
}
elsif ( $sigil eq "\@" ) {
eval "use Rex::Shared::Var::Array;";
tie @$sym, "Rex::Shared::Var::Array", $sym;
*$sym = \@$sym;
}
elsif ( $sigil eq "\%" ) {
eval "use Rex::Shared::Var::Hash;";
tie %$sym, "Rex::Shared::Var::Hash", $sym;
*$sym = \%$sym;
}
}
}
}
1;
|