/usr/lib/perl5/Devel/LexAlias.pm is in libdevel-lexalias-perl 0.05-1build1.
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 89 90 91 92 93 94 95 96 97 98 99 100 | package Devel::LexAlias;
require DynaLoader;
use Devel::Caller qw(caller_cv);
require 5.005003;
@ISA = qw(Exporter DynaLoader);
@EXPORT_OK = qw(lexalias);
$VERSION = '0.05';
bootstrap Devel::LexAlias $VERSION;
sub lexalias {
my $cv = shift;
unless (ref $cv eq 'CODE') {
$cv = caller_cv($cv + 1);
}
return _lexalias($cv, @_);
}
1;
__END__
=head1 NAME
Devel::LexAlias - alias lexical variables
=head1 SYNOPSIS
use Devel::LexAlias qw(lexalias);
sub steal_my_x {
my $foo = 1;
lexalias(1, '$x', \$foo);
}
sub foo {
my $x = 22;
print $x; # prints 22
steal_my_x;
print $x; # prints 1
}
=head1 DESCRIPTION
Devel::LexAlias provides the ability to alias a lexical variable in a
subroutines scope to one of your choosing.
If you don't know why you'd want to do this, I'd suggest that you skip
this module. If you think you have a use for it, I'd insist on it.
Still here?
=over
=item lexalias( $where, $name, $variable )
C<$where> refers to the subroutine in which to alias the lexical, it
can be a coderef or a call level such that you'd give to C<caller>
C<$name> is the name of the lexical within that subroutine
C<$variable> is a reference to the variable to install at that location
=back
=head1 BUGS
lexalias delves into the internals of the interpreter to perform its
actions and is so very sensitive to bad data, which will likely result
in flaming death, or a core dump. Consider this a warning.
There is no checking that you are attaching a suitable variable back
into the pad as implied by the name of the variable, so it is possible
to do the following:
lexalias( $sub, '$foo', [qw(an array)] );
The behaviour of this is untested, I imagine badness is very close on
the horizon though.
=head1 SEE ALSO
peek_sub from L<PadWalker>, L<Devel::Peek>
=head1 AUTHOR
Richard Clamp E<lt>richardc@unixbeard.netE<gt> with close reference to
PadWalker by Robin Houston
=head1 COPYRIGHT
Copyright (c) 2002, 2013, Richard Clamp. All Rights Reserved. This module
is free software. It may be used, redistributed and/or modified under
the same terms as Perl itself.
=cut
|