| Server IP : 78.140.185.180 / Your IP : 3.148.229.54 Web Server : LiteSpeed System : Linux cpanel13.v.fozzy.com 4.18.0-513.11.1.lve.el8.x86_64 #1 SMP Thu Jan 18 16:21:02 UTC 2024 x86_64 User : builderbox ( 1072) PHP Version : 7.3.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : OFF Directory : /proc/self/root/proc/thread-self/root/lib64/perl5/vendor_perl/Devel/ |
Upload File : |
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