Beta Shell
v2.0 ยท web2.us.cloudlogin.co
[FM]
[CMD]
[PHP]
[DB]
[INFO]
[SEC]
File Manager
~
/
usr
/
share
/
perl5
/
vendor_perl
/
Devel
/
StackTrace
/
WithLexicals
Upload
3 items
Name
Size
Perms
Modified
Actions
[ .. / .. ]
Frame.pm
378 B
-rw-r--r--
2014-11-12 13:55:12
Edit
Del
Editing: Frame.pm
(378 B)
Path: /usr/share/perl5/vendor_perl/Devel/StackTrace/WithLexicals/Frame.pm
Back
package Devel::StackTrace::WithLexicals::Frame; use strict; use warnings; use Devel::StackTrace; use base 'Devel::StackTrace::Frame'; sub new { my $class = shift; my $self = $class->SUPER::new(@_); $self->{lexicals} = $_[6]; return $self; } sub lexicals { shift->{lexicals} } sub lexical { my $self = shift; return $self->lexicals->{$_[0]}; } 1;