1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
package Devel::ebug::Plugin::Pad;
use strict;
use warnings;
use base qw(Exporter);
our @EXPORT = qw(pad pad_human);
# find the pad
sub pad {
my($self) = @_;
my $response = $self->talk({ command => "pad" });
return $response->{pad};
}
# human-readable pad
sub pad_human {
my($self) = @_;
my $pad = $self->pad;
foreach my $var (keys %$pad) {
if ($var =~ /^@/) {
my @values = @{$pad->{$var}};
my $value = $self->stack_trace_human_args(@values);
$pad->{$var} = $value;
} elsif ($var =~ /^%/) {
$pad->{$var} = '(...)';
} else {
my $value = $pad->{$var};
$value = $self->stack_trace_human_args($value);
$value =~ s/^\(//;
$value =~ s/\)$//;
$pad->{$var} = $value;
}
}
return $pad;
}
1;
|
