Server IP : 85.214.239.14 / Your IP : 3.145.12.233 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /lib/x86_64-linux-gnu/perl5/5.36/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