Acme-Perl-VM
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Acme/Perl/VM.pm view on Meta::CPAN
}
return;
}
sub cv_external{
my($cv) = @_;
return $cv->XSUB || $external{ ${$cv} };
}
sub ddx{
require Data::Dumper;
my $ddx = Data::Dumper->new(@_);
$ddx->Indent(1);
$ddx->Terse(TRUE);
$ddx->Quotekeys(FALSE);
$ddx->Useqq(TRUE);
return $ddx if defined wantarray;
my $name = ( split '::', (caller 2)[3] )[-1];
print STDERR $name, ': ', $ddx->Dump(), "\n";
return;
}
sub dump_object{
ddx([[ map{ $_ ? $_->object_2svref : $_ } @_ ]]);
}
sub dump_value{
ddx([\@_]);
}
sub dump_stack{
require Data::Dumper;
no warnings 'once';
local $Data::Dumper::Indent = 0;
local $Data::Dumper::Terse = TRUE;
local $Data::Dumper::Quotekeys = FALSE;
local $Data::Dumper::Useqq = TRUE;
deb "(%s)\n", join q{,}, map{
# find variable name
my $varname = '';
my $class = $_->class;
if($class eq 'SPECIAL'){
($varname = $_->special_name) =~ s/^\&PL_//;
$varname;
}
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.626 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )