view release on metacpan or search on metacpan
build_requires:
ExtUtils::MakeMaker: 0
requires:
Devel::Cycle: 1.11
List::Util: 1.21
PadWalker: 1.9
Scalar::Util: 1.21
Test::Exception: 0.27
Test::Memory::Cycle: 1.04
Test::More: 0.94
Test::Warn: 0.21
view release on metacpan or search on metacpan
lib/Parse/RPN.pm view on Meta::CPAN
my $name = pop @{ $work1 };
my $name1 = pop @{ $work1 };
$name =~ /^\{([^}]*)\}/;
my $base_name = $1;
my @ret;
use PadWalker qw(peek_my);
my $level = 0 ;
my $ref_var;
while ( ! exists $ref_var->{$base_name} )
{
eval { $ref_var= peek_my( $level++ ) };
view release on metacpan or search on metacpan
share/32bit-5.30.0.1.pp view on Meta::CPAN
qw/ CPAN::SQLite FCGI /,
qw/ IO::String /,
{ module=>'Unicode::UTF8', ignore_testfailure=>1 }, #XXX-TODO-5.28
qw/ V Modern::Perl Perl::Tidy /,
qw/ FFI::Raw /,
qw/ PadWalker Devel::vscode /,
# GUI - not yet
#qw/IUP/,
],
view release on metacpan or search on metacpan
lib/Perl/LanguageServer/DebuggerInterface.pm view on Meta::CPAN
use strict ;
use IO::Socket ;
use JSON ;
use PadWalker ;
use Scalar::Util qw{blessed reftype looks_like_number};
use Hash::SafeKeys;
#use Data::Dump qw{pp} ;
use File::Basename ;
use vars qw{@dbline %dbline $dbline} ;
lib/Perl/LanguageServer/DebuggerInterface.pm view on Meta::CPAN
my $vars ;
my %varsrc ;
eval
{
$vars = PadWalker::peek_my ($frame) ;
foreach my $var (keys %$vars)
{
$varsrc{$var} =
[
$vars->{$var},
lib/Perl/LanguageServer/DebuggerInterface.pm view on Meta::CPAN
sub get_eval_result
{
my ($self, $frame, $package, $expression) = @_;
my $___di_vars = PadWalker::peek_my ($frame) ;
$expression =~ s/([\%\@\$])(#?\w+)\s*([\[\{])?/_eval_replace($___di_vars, $1, $2, $3, $frame)/eg ;
my $code = "package $package ; no strict ; $expression";
my %vars ;
view release on metacpan or search on metacpan
eg/thinnercache.pl view on Meta::CPAN
32856,32857, # DCONWAY/Getopt-Euclid-v0.1.0 know your enemy, this is hard to binarysearch, not the usual oneliner!
32953,32954, # Data-PostfixDeref-0.03
33017,33018, # RCLAMP/Devel-Caller-2.03, Coro 4.37
33021,33022, # DROLSKY/Devel-StackTrace-1.15, Devel-ebug-0.48
33027,33028, # ROBIN/Want-0.16
33029,33030, # ROBIN/PadWalker-1.6
33056,33057, # ROBIN/Want-0.16 again
33071,33072, # PJCJ/Devel-Cover-0.63, ANDYA/Devel-LeakTrace-Fast-0.11
33085,33086, # PAR::Packer 0.978
33087,33088, # OLAF/Net-DNS-0.62.tar.gz
33709,33710, # PJCJ/Devel-Cover-0.64.tar.gz
view release on metacpan or search on metacpan
bin/dev/namespaces_regenerate.pl view on Meta::CPAN
'MongoDB::' => 1,
'Moo::' => 1,
'Moose::' => 1,
'MRO::' => 1,
'POSIX::' => 1,
'PadWalker::' => 1,
'Package::' => 1,
'Params::' => 1,
'Parse::' => 1,
'Path::' => 1,
'Perl::' => 1,
view release on metacpan or search on metacpan
lib/Perl6/Binding.pm view on Meta::CPAN
require XSLoader;
XSLoader::load('Perl6::Binding', $VERSION);
use Filter::Util::Call;
use Text::Balanced qw(extract_bracketed);
use PadWalker;
use Carp;
our %INSTALLED;
=head1 NAME
lib/Perl6/Binding.pm view on Meta::CPAN
L<Filter::Util::Call|Filter::Util::Call>
L<Text::Balanced|Text::Balanced>
L<PadWalker|PadWalker>
=head1 BUGS
Under Perl 5.8.x, it is not possible to create aliases at the root level
of the program due to a problem in PadWalker 0.09 and 0.10 (see the README
for PadWalker). Aliases created in subroutines continue to work, however.
=head1 ACKNOWLEDGEMENTS
Some code was taken from Devel::LexAlias and Devel::Caller, both by Richard
Clamp.
lib/Perl6/Binding.pm view on Meta::CPAN
## the element in the slice is itself a hash or array reference).
## This routine is called at runtime.
##==============================================================================
sub alias {
my $left = shift;
my $cx = PadWalker::_upcontext(1);
my $cv = $cx ? _context_cv($cx) : 0;
my ($rtype, $rpos, @rrefs);
foreach (@$left) {
##----------------------------------------------------------------------
view release on metacpan or search on metacpan
lib/Perl6/Export/Attrs.pm view on Meta::CPAN
use warnings;
use strict;
use Carp;
use Attribute::Handlers;
use PadWalker qw( var_name peek_my );
my %IMPORT_for;
sub import {
my $caller = caller;
view release on metacpan or search on metacpan
misc/pX/pmurias/ruby_quotes.pl view on Meta::CPAN
#!?usr/bin/perl
use PadWalker qw(peek_my peek_our);
use warnings;
use strict;
sub ruby_quote($) {
my ($string) = @_;
my %hash = (%{peek_our(1)},%{peek_my(1)});
view release on metacpan or search on metacpan
local/lib/perl5/Eval/TypeTiny.pm view on Meta::CPAN
return;
}
{
sub IMPLEMENTATION_DEVEL_LEXALIAS () { 'Devel::LexAlias' }
sub IMPLEMENTATION_PADWALKER () { 'PadWalker' }
sub IMPLEMENTATION_TIE () { 'tie' }
sub IMPLEMENTATION_NATIVE () { 'perl' }
my $implementation;
local/lib/perl5/Eval/TypeTiny.pm view on Meta::CPAN
# uncoverable subroutine
sub ALIAS_IMPLEMENTATION () {
$implementation ||= _pick_alternative(
if => ( $] ge '5.022' ) => IMPLEMENTATION_NATIVE,
needs => 'Devel::LexAlias' => IMPLEMENTATION_DEVEL_LEXALIAS,
needs => 'PadWalker' => IMPLEMENTATION_PADWALKER,
if => !!1 => IMPLEMENTATION_TIE,
);
}
#>>>
local/lib/perl5/Eval/TypeTiny.pm view on Meta::CPAN
Devel::LexAlias::lexalias( $code, $_ => $args{environment}{$_} )
for grep !/^\&/, @keys;
}
if ( $alias and ALIAS_IMPLEMENTATION eq IMPLEMENTATION_PADWALKER ) {
require PadWalker;
my %env = map +( $_ => $args{environment}{$_} ), grep !/^\&/, @keys;
PadWalker::set_closed_over( $code, \%env );
}
return $code;
} #/ sub eval_closure
local/lib/perl5/Eval/TypeTiny.pm view on Meta::CPAN
Eval::TypeTiny is currently using L<Devel::LexAlias> to provide aliases.
=item C<< IMPLEMENTATION_PADWALKER >>
If C<< ALIAS_IMPLEMENTATION eq IMPLEMENTATION_PADWALKER >> then
Eval::TypeTiny is currently using L<PadWalker> to provide aliases.
=item C<< IMPLEMENTATION_TIE >>
If C<< ALIAS_IMPLEMENTATION eq IMPLEMENTATION_TIE >> then Eval::TypeTiny is
using the fallback implementation of aliases using C<tie>. This is the
view release on metacpan or search on metacpan
carton.lock view on Meta::CPAN
"IO::File" : "0",
"IO::String" : "0",
"Locale::US" : "0",
"Module::Info" : "0",
"Module::Refresh" : "0",
"PadWalker" : "0",
"Params::Coerce" : "0",
"Regexp::Common" : "0",
"SUPER" : "0",
"Test::Deep" : "0",
"Test::DependentModules" : "0.13",
view release on metacpan or search on metacpan
lib/Plack/Middleware/StackTrace.pm view on Meta::CPAN
use Try::Tiny;
use Plack::Util::Accessor qw( force no_print_errors );
our $StackTraceClass = "Devel::StackTrace";
# Optional since it needs PadWalker
if (try { require Devel::StackTrace::WithLexicals; Devel::StackTrace::WithLexicals->VERSION(0.08); 1 }) {
$StackTraceClass = "Devel::StackTrace::WithLexicals";
}
sub call {
view release on metacpan or search on metacpan
share/wordlist view on Meta::CPAN
outdent
outfile
overloadable
overpackage
overwriteable
PadWalker
parameterizable
parameterized
parametric
PARC
paren
view release on metacpan or search on metacpan
lib/Primeval.pm view on Meta::CPAN
while actually a subroutine named C< prim > the block C< {eval} > must always
be passed to C< prim > as the first argument. this code block is used to peek
into the calling scope to fetch the values for lexical variables. using this
code block to access the caller's scope allows this module to have no external
dependencies (normally PadWalker would be required to peek into a lexical scope)
the arguments are checked to make sure they look like perl variable names, so
you don't have to worry about anything accidentally making it into an eval that
you wouldn't want to.
view release on metacpan or search on metacpan
}
local $Already = 1;
require Devel::StackTrace;
require Reply;
require PadWalker;
$Lexicals = +{
%{ PadWalker::peek_our(1) },
%{ PadWalker::peek_my(1) },
};
$Trace = Devel::StackTrace->new(
ignore_package => __PACKAGE__,
message => "Prying",
);
view release on metacpan or search on metacpan
lib/Pugs/Runtime/Regex.pm view on Meta::CPAN
sub get_variable {
my $name = shift;
local $@;
my($idx, $pad) = 0;
while(eval { require PadWalker; $pad = PadWalker::peek_my($idx) }) {
$idx++, next
unless exists $pad->{$name};
#print "NAME $name $pad->{$name}\n";
return ${ $pad->{$name} } if $name =~ /^\$/;
view release on metacpan or search on metacpan
lib/rperlnames.pm view on Meta::CPAN
use rperltypes;
use rperlnamespaces;
#BEGIN { print 'in rperlnames.pm, have @INC = ' . "\n" . Dumper(\@INC) . "\n"; }
use PadWalker qw(peek_my peek_our);
# NEED UPGRADE: somehow reduce duplicate code of name() and scope_type_name_value(), not easy due to PadWalker magic!
sub name {
{ my string $RETURN_TYPE };
my unknown $input_variable_ref = \$_[0];
my hashref $pad = peek_my 1; # pad my
for my string $name ( keys %{$pad} ) {
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
Pod::Man 0
TAP::Harness::Env 0
perl 5.006
strict 0
warnings 0
PadWalker-2.2
pathname: R/RO/ROBIN/PadWalker-2.2.tar.gz
provides:
PadWalker 2.2
requirements:
ExtUtils::MakeMaker 0
perl 5.008001
Test-Fatal-0.014
pathname: R/RJ/RJBS/Test-Fatal-0.014.tar.gz
cpanfile.snapshot view on Meta::CPAN
provides:
Variable::Expand::AnyLevel 0.03
requirements:
ExtUtils::MakeMaker 6.36
Module::Build::Tiny 0.035
PadWalker 0
Test::More 0
parent 0
view release on metacpan or search on metacpan
lib/Reply/Plugin/LexicalPersistence.pm view on Meta::CPAN
use warnings;
# ABSTRACT: persists lexical variables between lines
use base 'Reply::Plugin';
use PadWalker 'peek_sub', 'closed_over';
sub new {
my $class = shift;
my %opts = @_;
view release on metacpan or search on metacpan
lib/Rubyish/Attribute.pm view on Meta::CPAN
sub import {
my $caller = caller;
for (qw(attr_accessor attr_reader attr_writer)) {
*{$caller . "::" . $_} = *{$_};
}
eval qq{package $caller; use PadWalker qw(peek_my);};
}
=head1 VERSION
view release on metacpan or search on metacpan
- Found new workaround for 5.018 incompatibility.
"Problem" appears to be a deliberate choice by P5P
when optimizing the implementation of closures.
New solution is actually superior to original
(pre-5.18) solution, as it does not require
PadWalker, and hence is unlikely to break on
future changes in implementation.
view release on metacpan or search on metacpan
lib/Runtime/Debugger.pm view on Meta::CPAN
use warnings FATAL => 'all';
use Data::Dumper;
use Data::Printer use_prototypes => 0;
use Term::ReadLine;
use Term::ANSIColor qw( colored );
use PadWalker qw( peek_our peek_my );
use Scalar::Util qw( blessed reftype );
use Class::Tiny qw( term attr debug levels_up );
use YAML::XS();
use re qw( eval ); # For debug.
use feature qw( say );
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libouch-perl", "Ouch", "0.0401", "0", "0"
"libpackage-deprecationmanager-perl", "Package-DeprecationManager", "0.10", "0", "0"
"libpackage-pkg-perl", "Package-Pkg", "0.0019", "0", "0"
"libpackage-stash-perl", "Package-Stash", "0.29", "0", "1"
"libpackage-stash-xs-perl", "Package-Stash-XS", "0.22", "0", "0"
"libpadwalker-perl", "PadWalker", "1.92", "0", "1"
"libpalm-perl", "p5-Palm", "1.012", "0", "2"
"libpango-perl", "Pango", "1.221", "0", "1"
"libpar-dist-perl", "PAR-Dist", "0.45", "0", "0"
"libpar-packer-perl", "PAR-Packer", "1.008", "0", "2"
"libpar-perl", "PAR", "1.002", "0", "1"
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libouch-perl", "Ouch", "0.0401", "0", "0"
"libpackage-deprecationmanager-perl", "Package-DeprecationManager", "0.10", "0", "0"
"libpackage-pkg-perl", "Package-Pkg", "0.0019", "0", "0"
"libpackage-stash-perl", "Package-Stash", "0.29", "0", "1"
"libpackage-stash-xs-perl", "Package-Stash-XS", "0.22", "0", "0"
"libpadwalker-perl", "PadWalker", "1.92", "0", "1"
"libpalm-perl", "p5-Palm", "1.012", "0", "2"
"libpango-perl", "Pango", "1.221", "0", "1"
"libpar-dist-perl", "PAR-Dist", "0.45", "0", "0"
"libpar-packer-perl", "PAR-Packer", "1.008", "0", "2"
"libpar-perl", "PAR", "1.002", "0", "1"
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libouch-perl", "Ouch", "0.0401", "0", "0"
"libpackage-deprecationmanager-perl", "Package-DeprecationManager", "0.10", "0", "0"
"libpackage-pkg-perl", "Package-Pkg", "0.0019", "0", "0"
"libpackage-stash-perl", "Package-Stash", "0.29", "0", "1"
"libpackage-stash-xs-perl", "Package-Stash-XS", "0.22", "0", "0"
"libpadwalker-perl", "PadWalker", "1.92", "0", "1"
"libpalm-perl", "p5-Palm", "1.012", "0", "2"
"libpango-perl", "Pango", "1.221", "0", "1"
"libpar-dist-perl", "PAR-Dist", "0.45", "0", "0"
"libpar-packer-perl", "PAR-Packer", "1.008", "0", "2"
"libpar-perl", "PAR", "1.002", "0", "1"
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libopenoffice-oodoc-perl", "OpenOffice-OODoc", "2.122", "0", "1"
"liborlite-migrate-perl", "ORLite-Migrate", "1.06", "0", "0"
"liborlite-mirror-perl", "ORLite-Mirror", "1.20", "0", "0"
"liborlite-perl", "ORLite", "1.41", "0", "1"
"liborlite-statistics-perl", "ORLite-Statistics", "0.03", "0", "0"
"libpadwalker-perl", "PadWalker", "1.9", "0", "1"
"libpalm-perl", "p5-Palm", "1.012", "0", "2"
"libpango-perl", "Pango", "1.221", "0", "1"
"libpar-dist-perl", "PAR-Dist", "0.45", "0", "0"
"libpar-packer-perl", "PAR-Packer", "1.002", "0", "3"
"libpar-perl", "PAR", "0.994", "0", "1"
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libopenoffice-oodoc-perl", "OpenOffice-OODoc", "2.122", "0", "1"
"liborlite-migrate-perl", "ORLite-Migrate", "1.06", "0", "0"
"liborlite-mirror-perl", "ORLite-Mirror", "1.20", "0", "0"
"liborlite-perl", "ORLite", "1.41", "0", "1"
"liborlite-statistics-perl", "ORLite-Statistics", "0.03", "0", "0"
"libpadwalker-perl", "PadWalker", "1.9", "0", "1"
"libpalm-perl", "p5-Palm", "1.012", "0", "2"
"libpango-perl", "Pango", "1.221", "0", "1"
"libpar-dist-perl", "PAR-Dist", "0.45", "0", "0"
"libpar-packer-perl", "PAR-Packer", "1.002", "0", "3"
"libpar-perl", "PAR", "0.994", "0", "1"
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libopenoffice-oodoc-perl", "OpenOffice-OODoc", "2.122", "0", "1"
"liborlite-migrate-perl", "ORLite-Migrate", "1.06", "0", "0"
"liborlite-mirror-perl", "ORLite-Mirror", "1.20", "0", "0"
"liborlite-perl", "ORLite", "1.41", "0", "1"
"liborlite-statistics-perl", "ORLite-Statistics", "0.03", "0", "0"
"libpadwalker-perl", "PadWalker", "1.9", "0", "1"
"libpalm-perl", "p5-Palm", "1.012", "0", "2"
"libpango-perl", "Pango", "1.221", "0", "1"
"libpar-dist-perl", "PAR-Dist", "0.45", "0", "0"
"libpar-packer-perl", "PAR-Packer", "1.002", "0", "3"
"libpar-perl", "PAR", "0.994", "0", "1"
view release on metacpan or search on metacpan
lib/Saraltest.pm view on Meta::CPAN
common::sense
JSON::XS
URI
URI::Escape
Encode::DoubleEncodedUTF8
PadWalker
Devel::Caller
callee
String::Random
YAML::Syck
Date::Manip
view release on metacpan or search on metacpan
Scalar::Does to fake lexical subs.
- Improve test suite cleanliness; use Test::Requires, etc.
- does($class, $overloaded_operation) no longer returns true.
does($instance, $overloaded_operation) still works of course!
- use lexical::underscore instead of directly mucking around with
PadWalker.
0.100 2013-03-07
[ Packaging ]
- Merge IO-Detect distribution into Scalar-Does.