Dave Cross: Still Munging Data With Perl: Online event - Mar 17 Learn more

use strict;
sub register_commands {
return ( stack_trace => { sub => \&stack_trace } );
}
sub stack_trace {
my($req, $context) = @_;
my $trace = Devel::StackTrace->new;
my @frames = $trace->frames;
# remove our internal frames
shift @frames;
shift @frames;
shift @frames;
return { stack_trace => \@frames };
}
1;