6: my $html;
7:
8: sub foo {
9: my $t = Devel::StackTrace::WithLexicals->new;
10: $html = $t->as_html_extended;
11: print $html;
12: }
| Argument | Value |
|---|---|
| $_[0] | |
| $_[1] | |
| $_[2] | |
| Variable | Value |
|---|---|
| $html | |
11: print $html;
12: }
13:
14: sub bar { foo("bar", "test", { asdf => 'asdf', nums => [2,2,2,1, 40..120]}) }
15: bar(2);
16:
17:
| Argument | Value |
|---|---|
| $_[0] | |
| Variable | Value |
|---|---|
| $html | |
12: }
13:
14: sub bar { foo("bar", "test", { asdf => 'asdf', nums => [2,2,2,1, 40..120]}) }
15: bar(2);
16:
17:
18:
| Variable | Value |
|---|---|
| $html | |