| Server IP : 61.19.30.66 / Your IP : 216.73.216.15 Web Server : Apache/2.2.22 (Ubuntu) System : Linux klw 3.11.0-15-generic #25~precise1-Ubuntu SMP Thu Jan 30 17:39:31 UTC 2014 x86_64 User : www-data ( 33) PHP Version : 5.3.10-1ubuntu3.48 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, MySQL : ON | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /usr/share/perl/5.14/B/Lint/ |
Upload File : |
package B::Lint::Debug;
our $VERSION = '1.12';
=head1 NAME
B::Lint::Debug - Adds debugging stringification to B::
=head1 DESCRIPTION
This module injects stringification to a B::OP*/B::SPECIAL. This
should not be loaded unless you're debugging.
=cut
package B::SPECIAL;
use overload '""' => sub {
my $self = shift @_;
"SPECIAL($$self)";
};
package B::OP;
use overload '""' => sub {
my $self = shift @_;
my $class = ref $self;
$class =~ s/\AB:://xms;
my $name = $self->name;
"$class($name)";
};
package B::SVOP;
use overload '""' => sub {
my $self = shift @_;
my $class = ref $self;
$class =~ s/\AB:://xms;
my $name = $self->name;
"$class($name," . $self->sv . "," . $self->gv . ")";
};
package B::SPECIAL;
sub DESTROY { }
our $AUTOLOAD;
sub AUTOLOAD {
my $cx = 0;
print "AUTOLOAD $AUTOLOAD\n";
package DB;
while ( my @stuff = caller $cx ) {
print "$cx: [@DB::args] [@stuff]\n";
if ( ref $DB::args[0] ) {
if ( $DB::args[0]->can('padix') ) {
print " PADIX: " . $DB::args[0]->padix . "\n";
}
if ( $DB::args[0]->can('targ') ) {
print " TARG: " . $DB::args[0]->targ . "\n";
for ( B::Lint::cv()->PADLIST->ARRAY ) {
print +( $_->ARRAY )[ $DB::args[0]->targ ] . "\n";
}
}
}
++$cx;
}
}
1;