view release on metacpan or search on metacpan
t/var/nntp-testers/1427341 view on Meta::CPAN
Environment variables:
PATH = /usr/local/bin:/usr/X11R6/bin:/usr/X11/bin:/usr/perl5.8.0/bin:/usr/bin:/bin:/usr/local/sbin:/usr/sbin:/sbin:/usr/local/pilot/bin:/home/cpansand/bin/freebsd6.1:/home/cpansand/bin/sh:/home/cpansand/bin:/usr/X386/bin:/usr/games:/home/cpansand...
PERL5LIB = /usr/local/src/CPAN/build/TermReadKey-2.30-WLpFrB/blib/arch:/usr/local/src/CPAN/build/TermReadKey-2.30-WLpFrB/blib/lib:/usr/local/src/CPAN/build/with-0.01-ch52xv/blib/arch:/usr/local/src/CPAN/build/with-0.01-ch52xv/blib/lib:/usr/local/...
AL-requi
re-0.11-mMWhsS/blib/lib:/usr/local/src/CPAN/build/Package-Generator-0.102-NGrj6r/blib/arch:/usr/local/src/CPAN/build/Package-Generator-0.102-NGrj6r/blib/lib:/usr/local/src/CPAN/build/HTML-Tree-3.23-jvNwO4/blib/arch:/usr/local/src/CPAN/build/HTML-Tree...
eUtils-0
.21-m7Ollt/blib/lib:/usr/local/src/CPAN/build/Test-SubCalls-1.07-p5Ck0t/blib/arch:/usr/local/src/CPAN/build/Test-SubCalls-1.07-p5Ck0t/blib/lib:/usr/local/src/CPAN/build/Hook-LexWrap-0.20-hOsOuj/blib/arch:/usr/local/src/CPAN/build/Hook-LexWrap-0.20-hO...
d/Sort-D
ataTypes-2.02-Hyq5bz/blib/lib:/usr/local/src/CPAN/build/Date-Manip-5.52-qEUDEK/blib/arch:/usr/local/src/CPAN/build/Date-Manip-5.52-qEUDEK/blib/lib:/usr/local/src/CPAN/build/Data-NDS-1.02-79IKmq/blib/arch:/usr/local/src/CPAN/build/Data-NDS-1.02-79IKmq...
AN/build
view release on metacpan or search on metacpan
t/data/cpanstats-test.json view on Meta::CPAN
{"test":{"count":{"entries":100,"reports":100,"posters":"182","distros":0},"pass":{"MacPPC":{"5.4.0":{"all":{"Net-Whois":1,"URI":1,"Storable":1,"Mac-Conversions":1,"Digest-MD5":1}}},"PA-RISC1.1":{"5.5.3":{"all":{"DBD-Oracle":1,"Curses":1}},"5.4.4":{"...
view release on metacpan or search on metacpan
t/data/Smart-Args-cpanfile view on Meta::CPAN
requires 'perl', '5.008001';
requires 'Exporter', '5.63';
requires 'Mouse', '0.92';
requires 'PadWalker', '1.92';
requires 'Scalar::Util', '1.21';
requires 'Mouse::Util::TypeConstraints';
on test => sub {
requires 'Test::More', '0.96';
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libopenoffice-oodoc-perl", "OpenOffice-OODoc", "2.108", "0", "0"
"liborlite-migrate-perl", "ORLite-Migrate", "1.05", "0", "0"
"liborlite-mirror-perl", "ORLite-Mirror", "1.17", "0", "0"
"liborlite-perl", "ORLite", "1.28", "0", "0"
"liborlite-statistics-perl", "ORLite-Statistics", "0.03", "0", "0"
"libpadwalker-perl", "PadWalker", "1.9", "0", "0"
"libpalm-perl", "p5-Palm", "1.011", "0", "0"
"libpango-perl", "Pango", "1.221", "0", "0"
"libpar-dist-perl", "PAR-Dist", "0.45", "0", "0"
"libpar-packer-perl", "PAR-Packer", "1.001", "0", "0"
"libpar-perl", "PAR", "0.994", "0", "0"
view release on metacpan or search on metacpan
Devel::REPL no longer depends on Lexical::Persistence, so we must
0.13 Tue Aug 12 06:50:18 2008
perl -MCarp::REPL=test t/foo.t give you a REPL on each failing test!
Fix longstanding "not nested deeply enough" bug
Caused by not skipping over "eval" frames, which PadWalker does
Move a lot of code into a new dist, Devel::StackTrace::WithLexicals
Remove excess newlines in :l code listings
:top and :bottom stack traversal commands
0.12 Fri May 16 11:17:55 2008
view release on metacpan or search on metacpan
lib/Catalyst/Controller/BindLex.pm view on Meta::CPAN
no warnings 'uninitialized'; # i hate those
# dear god
use attributes ();
use NEXT ();
use PadWalker ();
use Array::RefElem ();
use Devel::Caller ();
use Devel::LexAlias ();
use Scalar::Util ();
use Carp ();
lib/Catalyst/Controller/BindLex.pm view on Meta::CPAN
# first we need to sub to look in
# for some reason peek_my($level) doesn't work here
# perhaps it's with respect to the point at which the attribute handler
# was invoked, when the variables don't exist yet.
my $sub = Devel::Caller::caller_cv($level);
my $pad = PadWalker::peek_sub($sub);
my %ref_to_name = reverse %$pad;
return $ref_to_name{$var_ref} || die "panic: Can't find $var_ref in the the caller's lexical pad";
}
lib/Catalyst/Controller/BindLex.pm view on Meta::CPAN
=head1 DESCRIPTION
This plugin lets you put your lexicals on the stash and elsewhere very easily.
It uses some funky modules to get its job done: L<PadWalker>,
L<Array::RefElem>, L<Devel::Caller>, L<Devel::LexAlias>, and L<attributes>. In
some people's opinion this hurts this plugin's reputation ;-).
If you use the same name for two variables with the same storage binding
attribute they will be aliased to each other, so you can use this for reading
lib/Catalyst/Controller/BindLex.pm view on Meta::CPAN
Yuval Kogman
=head1 SEE ALSO
L<PadWalker>, L<Array::RefElem>, L<Devel::Caller>, L<Devel::LexAlias>, L<Sub::Parameters>
=head1 COPYRIGHT & LICENSE
Copyright (c) 2005 the aforementioned authors. All rights
view release on metacpan or search on metacpan
lib/Catalyst/Plugin/CodeEval.pm view on Meta::CPAN
package Catalyst::Plugin::CodeEval;
use strict;
use warnings;
use PadWalker qw(peek_my);
our $VERSION = '0.012';
my($Revision) = '$Id: CodeEval.pm,v 1.6 2006/02/14 09:40:47 Sho Exp $';
lib/Catalyst/Plugin/CodeEval.pm view on Meta::CPAN
return $code
}
=head1 SEE ALSO
L<Catalyst> L<PadWalker>
=head1 AUTHOR
Shota Takayama, C<shot[atmark]bindstorm.jp>
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libole-storage-lite-perl", "OLE-Storage_Lite", "0.18", "0", "0"
"libopengl-perl", "OpenGL", "0.56.dfsg.1", "0", "0"
"libopenoffice-oodoc-perl", "OpenOffice-OODoc", "2.107", "0", "0"
"liborlite-migrate-perl", "ORLite-Migrate", "0.03", "0", "0"
"liborlite-perl", "ORLite", "1.20", "0", "0"
"libpadwalker-perl", "PadWalker", "1.7", "0", "0"
"libpalm-perl", "p5-Palm", "1.009", "0", "0"
"libpango-perl", "http://qa.debian.org/watch/sf.php/gtk2-perl/Pango-1.220.tar.gz", "1.220", "0", "0"
"libpar-dist-perl", "PAR-Dist", "0.44", "1", "0"
"libpar-packer-perl", "PAR-Packer", "0.991", "0", "0"
"libpar-perl", "PAR", "0.992", "0", "0"
view release on metacpan or search on metacpan
lib/Catalyst/View/Template/Declare.pm view on Meta::CPAN
$out =~ s/^\n+//g; # kill leading newlines
return $out;
}
package c;
use PadWalker qw(peek_my);
our $AUTOLOAD;
sub AUTOLOAD {
shift; # kill class
# walk up the stack looking for the Catalyst context
view release on metacpan or search on metacpan
}
},
"test" : {
"requires" : {
"Devel::Cycle" : "0",
"PadWalker" : "0",
"Test::More" : "0"
}
}
},
"provides" : {
view release on metacpan or search on metacpan
0.06 Fri, 26 Mar 2010 21:15:31 +0100
* Use native traits instead of AttributeHelpers.
0.05 Sun, 29 Nov 2009 17:38:51 +0100
* Depend on a later version of PadWalker to avoid segfaults in the
Catalyst test suite.
0.04 Sat, 12 Sep 2009 06:13:20 +0900
* Depend on PadWalker (Closes RT#49551).
0.03 Sat, 05 Sep 2009 09:42:43 +0200
* Port to Devel::Cycle. We're now able to report a broader range of leaks.
0.02 Thu, 25 Jun 2009 10:37:04 +0200
view release on metacpan or search on metacpan
lib/Class/Closure.pm view on Meta::CPAN
}
}
sub _find_name {
my ( $var, $code ) = @_;
require PadWalker;
my %names = reverse %{ PadWalker::peek_sub( $code ) };
my $name = $names{ $var } || Carp::croak "Couldn't find lexical name for $var";
$name =~ s/^[\$\@%]//;
$name;
}
view release on metacpan or search on metacpan
lib/Class/Lite.pm view on Meta::CPAN
=head1 Why?
Computer programmers are clever people who delight in evading restrictions.
Create an L<< inside-out|Class::Std >> (flyweight) class to enforce
encapsulation and another fellow will L<< hack in|PadWalker >>. The only
way to win the ancient game of locksmith and lockpick is never to begin.
If someone misuses your class then it's not your responsibility.
Hashref-based objects are traditional, well-understood, even expected in
the Perl world; tools exist with which to work with them.
view release on metacpan or search on metacpan
lib/Class/Mock/Method/InterfaceTester.pm view on Meta::CPAN
# all this pre-amble is damned near identical to C::M::G::IT. Re-factor.
use Test::More ();
use Data::Compare;
use Scalar::Util qw(blessed);
use PadWalker qw(closed_over);
use Data::Dumper::Concise;
use Class::Mock::Common ();
use Class::Mockable
view release on metacpan or search on metacpan
lib/Clone/Closure.xs view on Meta::CPAN
TRACE_SV("clone", "CV", clone);
return clone;
}
/* mostly stolen from PadWalker */
static void
pad_clone(HV *SEEN, CV *ref, CV *clone)
{
U32 vdepth = CvDEPTH(clone) ? CvDEPTH(clone) : 1;
view release on metacpan or search on metacpan
lib/Closure/Explicit.pm view on Meta::CPAN
package Closure::Explicit;
# ABSTRACT: check coderefs for unintended lexical capture
use strict;
use warnings;
use B;
use PadWalker qw(closed_over peek_sub peek_my);
use Scalar::Util ();
our $VERSION = '0.002';
=head1 NAME
lib/Closure/Explicit.pm view on Meta::CPAN
=over 4
=item * L<curry> - provides a convenient interface for creating callbacks
=item * L<PadWalker> - does most of the real work behind this module
=item * L<Test::RefCount> - convenient testing for reference counts, makes
cycles easier to detect in test code
=item * L<Devel::Cycle> - reports whether cycles exist and provides useful
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libogg-vorbis-decoder-perl", "Ogg-Vorbis-Decoder", "0.7", "0", "1"
"libogg-vorbis-header-perl", "Ogg-Vorbis-Header", "0.03", "0", "1"
"libogg-vorbis-header-pureperl-perl", "Ogg-Vorbis-Header-PurePerl", "0.07", "0", "2"
"libole-storage-lite-perl", "OLE-Storage_Lite", "0.17", "0", "0"
"libopengl-perl", "OpenGL", "0.56.dfsg.1", "0", "3"
"libpadwalker-perl", "PadWalker", "1.7", "0", "0"
"libpar-dist-perl", "PAR-Dist", "0.31", "0", "0"
"libpar-packer-perl", "PAR-Packer", "0.980", "0", "1"
"libpar-perl", "PAR", "0.980", "0", "1"
"libparams-callbackrequest-perl", "Params-CallbackRequest", "1.19", "0", "0"
"libparams-check-perl", "Params-Check", "0.26", "0", "0"
view release on metacpan or search on metacpan
eg/guess-peek.pl view on Meta::CPAN
while(1) {
my $sessions = $server->{mapper}->{sessions};
$request->print(sprintf "Session count: %d<br>\n", scalar keys %$sessions);
my $sess;
my $inspector = Inspector->new( callback => sub {
use PadWalker 'peek_my';
for my $i (1..100) {
print STDERR "bjork\n";
my $vars = peek_my($i) or last;
next unless exists $vars->{'$number'};
$request->print("$sess: secret number: ", ${ $vars->{'$number'} }, "<br>\n");
view release on metacpan or search on metacpan
refresh packaging (AutoManifest)
missing prereq for URI::Escape
0.002 Sun May 18 09:11:46 EDT 2008
add PadWalker as explicit dependency
0.001 Sat May 17 12:41:25 EDT 2008
first release
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
requirements:
ExtUtils::MakeMaker 6.30
XSLoader 0
strict 0
warnings 0
PadWalker-1.98
pathname: R/RO/ROBIN/PadWalker-1.98.tar.gz
provides:
PadWalker 1.98
requirements:
ExtUtils::MakeMaker 0
perl 5.008001
Params-Util-1.07
pathname: A/AD/ADAMK/Params-Util-1.07.tar.gz
cpanfile.snapshot view on Meta::CPAN
Exporter 5.63
ExtUtils::CBuilder 0
Module::Build 0.38
Mouse 0.92
Mouse::Util::TypeConstraints 0
PadWalker 1.92
Scalar::Util 1.21
perl 5.008001
Sub-Exporter-0.987
pathname: R/RJ/RJBS/Sub-Exporter-0.987.tar.gz
provides:
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libopenoffice-oodoc-perl", "OpenOffice-OODoc", "2.108", "0", "0"
"liborlite-migrate-perl", "ORLite-Migrate", "1.05", "0", "0"
"liborlite-mirror-perl", "ORLite-Mirror", "1.17", "0", "0"
"liborlite-perl", "ORLite", "1.28", "0", "0"
"liborlite-statistics-perl", "ORLite-Statistics", "0.03", "0", "0"
"libpadwalker-perl", "PadWalker", "1.9", "0", "0"
"libpalm-perl", "p5-Palm", "1.011", "0", "0"
"libpango-perl", "Pango", "1.221", "0", "0"
"libpar-dist-perl", "PAR-Dist", "0.45", "0", "0"
"libpar-packer-perl", "PAR-Packer", "0.991", "0", "0"
"libpar-perl", "PAR", "0.994", "0", "0"
view release on metacpan or search on metacpan
lib/DBIx/Class/Optional/Dependencies.pm view on Meta::CPAN
},
test_leaks_heavy => {
req => {
'Class::MethodCache' => '0.02',
'PadWalker' => '1.06',
},
},
test_dt => {
req => $datetime_basic,
view release on metacpan or search on metacpan
Added support for SELECT DISTINCT.
Added support for special labels syntax.
0.10 Tue Feb 6 09:46:58 2007
Added support for simple funcalls.
PadWalker module is now optional.
Terms can stand by themselves.
0.09 Mon Feb 5 14:27:52 2007
Added db_update().
view release on metacpan or search on metacpan
lib/Data/Bind.pm view on Meta::CPAN
package Data::Bind::Sig;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional invocant named named_slurpy is_multidimension));
use Carp qw(croak);
use Scalar::Util qw(blessed);
use PadWalker qw(peek_my);
use Data::Capture;
sub bind {
my ( $self, $args, $lv ) = @_;
view release on metacpan or search on metacpan
lib/Data/Decycle.pm view on Meta::CPAN
BEGIN {
require constant;
constant->import(
HAS_PADWALKER => eval {
require PadWalker;
$PadWalker::VERSION >= 1.0;
}
);
}
sub new {
lib/Data/Decycle.pm view on Meta::CPAN
|| UNIVERSAL::isa( $_[0], 'REF' ) )
{
return $CALLEE->( ${ $_[0] }, $_[1] );
}
elsif ( HAS_PADWALKER && UNIVERSAL::isa( $_[0], 'CODE' ) ) {
my $r = PadWalker::closed_over( $_[0] );
return unless keys %$r;
$CALLEE->( $r, $_[1] ) && return 1;
}
return;
}
lib/Data/Decycle.pm view on Meta::CPAN
|| UNIVERSAL::isa( $_[0], 'REF' ) )
{
$CALLEE->( ${ $_[0] }, $_[1] );
}
elsif ( HAS_PADWALKER && UNIVERSAL::isa( $_[0], 'CODE' ) ) {
my $r = PadWalker::closed_over( $_[0] );
return unless keys %$r;
$CALLEE->( $r, $_[1] );
}
return;
};
lib/Data/Decycle.pm view on Meta::CPAN
$cyclic_sref = \$cyclic_sref;
$cyclic_aref->[0] = $cyclic_aref;
$cyclic_href->{cyclic} = $cyclic_href;
}
=head2 Code Reference and PadWalker
If you have PadWalker, you can decycle closures, too.
{
my $guard = Data::Decycle->new;
my $cref;
$cref = sub{ $_[0] <= 1 ? 1 : $_[0] * $cref->($_[0] - 1) };
lib/Data/Decycle.pm view on Meta::CPAN
=head1 DEPENDENCY
None except for core modules.
To handle code references correctly, you need to have L<PadWalker> installed.
=head1 EXPORT
None by default. Please import explicitly.
lib/Data/Decycle.pm view on Meta::CPAN
=head1 ACKNOWLEDGEMENTS
=over 4
=item L<PadWalker>
You need this if you want to handle code references properly. When
you don't have one this module simply does nothing when it encounters
them.
view release on metacpan or search on metacpan
lib/Data/Dump/Streamer.pm view on Meta::CPAN
@ISA
@EXPORT @EXPORT_OK @EXPORT_FAIL %EXPORT_TAGS
%Freeze
%Thaw
$DEBUG
$HasPadWalker
);
$DEBUG= 0;
BEGIN { $HasPadWalker= eval "use PadWalker 0.99; 1"; }
BEGIN {
$VERSION= '2.42';
$XS_VERSION= $VERSION;
$VERSION= eval $VERSION; # used for beta stuff.
lib/Data/Dump/Streamer.pm view on Meta::CPAN
import Data::Dumper::Streamer as => 'DDS';
You can use any alias you like, but that doesn't mean you should.. Folks
doing as => 'DBI' will be mercilessly ridiculed.
=head2 PadWalker support
If PadWalker 1.0 is installed you can use DumpLex() to try to
automatically determine the names of the vars being dumped. As
long as the vars being dumped have my or our declarations in scope
the vars will be correctly named. Padwalker will also be used
instead of the B:: modules when dumping closures when it is available.
lib/Data/Dump/Streamer.pm view on Meta::CPAN
}
=item DumpLex VALUES
DumpLex is similar to Dump except it will try to automatically determine
the names to use for the variables being dumped by using PadWalker to
have a poke around the calling lexical scope to see what is declared. If
a name for a var can't be found then it will be named according to the
normal scheme. When PadWalker isn't installed this is just a wrapper for
L<Dump()|/Dump>.
Thanks to Ovid for the idea of this. See L<Data::Dumper::Simple> for a
similar wrapper around L<Data::Dumper>.
=cut
sub DumpLex {
if (!$HasPadWalker) {
#warn( "Can't use DumpLex without ".
# "PadWalker v1.0 or later installed.");
goto &Dump;
}
my $obj;
if (blessed($_[0]) and blessed($_[0]) eq __PACKAGE__) {
$obj= shift;
}
my @names;
# = map {
# PadWalker::var_name(1,\$_)
# || PadWalker::var_name(1,\$_)
# (ref $_ && PadWalker::var_name(1,$_));
# $str
# } @_;
#if ( !@names && @_ ) {
my %pad_vars;
foreach my $pad (PadWalker::peek_my(1), PadWalker::peek_our(1)) {
while (my ($var, $ref)= each %$pad) {
$pad_vars{ refaddr $ref } ||= $var;
}
}
foreach (@_) {
lib/Data/Dump/Streamer.pm view on Meta::CPAN
}
elsif (!defined wantarray) {
$self->{unames}= [];
}
#elsif ( eval { require PadWalker; 1 } ) {
# print DDumper(PadWalker::peek_my(1));
# return $self;
#}
return wantarray ? @{ $self->{unames} || [] } : $self->{unames};
}
lib/Data/Dump/Streamer.pm view on Meta::CPAN
}
sub _get_lexicals {
my $cv= shift;
if ($HasPadWalker) {
my ($names, $targs)= PadWalker::closed_over($cv);
if ($PadWalker::VERSION < 1) {
$names->{$_}= $names->{ $targs->{$_} } for keys %$targs;
}
else {
%$names= (%$names, %$targs);
}
view release on metacpan or search on metacpan
lib/Data/Dumper/Names.pm view on Meta::CPAN
use warnings;
use strict;
use Data::Dumper ();
use Scalar::Util 'refaddr';
use PadWalker 'peek_my';
use base 'Exporter';
our @EXPORT = qw/Dumper/;
our $UpLevel = 1;
=head1 NAME
lib/Data/Dumper/Names.pm view on Meta::CPAN
return Data::Dumper->Dump( \@_, \@names );
}
=head1 CAVEATS
=head2 PadWalker
This module is an alternative to L<Data::Dumper::Simple>. Many people like
the aforementioned module but do not like the fact that it uses a source
filter. In order to pull off the trick with this module, we use L<PadWalker>.
This introduces its own set of problems, not the least of which is that
L<PadWalker> uses undocumented features of the Perl internals and has an
annoying tendency to break. Thus, if this module doesn't work on your
machine you may have to go back to L<Data::Dumper::Simple>.
=head2 References
view release on metacpan or search on metacpan
lib/Data/Dumper/Simple.pm view on Meta::CPAN
Note that this is primarily a debugging tool. C<Data::Dumper> offers a bit
more than that, so don't expect this module to be more than it is.
Note that if you strongly object to source filters, I've also released
L<Data::Dumper::Names>. It does what this module does by it uses L<PadWalker>
instead of a source filter. Unfortunately, it has a few limitations and is not
as powerful as this module. Think of L<Data::Dumper::Names> as a "proof of
concept".
=head2 The Problem
view release on metacpan or search on metacpan
lib/Data/DynamicValidator.pm view on Meta::CPAN
use strict;
use warnings;
use Carp;
use Devel::LexAlias qw(lexalias);
use PadWalker qw(peek_sub);
use Scalar::Util qw/looks_like_number/;
use Storable qw(dclone);
use aliased qw/Data::DynamicValidator::Error/;
use aliased qw/Data::DynamicValidator::Filter/;