The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Devel::ebug::Backend::Plugin::Codelines;
$Devel::ebug::Backend::Plugin::Codelines::VERSION = '0.57';
use strict;
use warnings;

sub register_commands {
    return ( codelines   => { sub => \&codelines } );

}

sub codelines {
  my($req, $context) = @_;
  my $filename = $req->{filename};
  my @lines    = @{$req->{lines}};

  return { codelines => [ DB::fetch_codelines($filename, @lines)] };

}
1;