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
|
package Devel::ebug::Backend::Plugin::Basic;
use strict;
use warnings;
sub register_commands {
return (basic => { sub => \&basic });
}
sub basic {
my ($req, $context) = @_;
return {
codeline => $context->{codeline},
filename => $context->{filename},
finished => $context->{finished},
line => $context->{line},
package => $context->{package},
subroutine => subroutine($req, $context),
};
}
sub subroutine {
my ($req, $context) = @_;
foreach my $sub (keys %DB::sub) {
my ($filename, $start, $end) = $DB::sub{$sub} =~ m/^(.+):(\d+)-(\d+)$/;
next if $filename ne $context->{filename};
next unless $context->{line} >= $start && $context->{line} <= $end;
return $sub;
}
return 'main';
}
1;
|
