#!/usr/bin/perl

use strict;
use warnings;
use Devel::ebug;
use Data::Dumper;

my $ebug = Devel::ebug->new;
$ebug->program(shift);
$ebug->load;

until ($ebug->finished) {
    print "+++ file:", $ebug->filename, " line: ", $ebug->line, "\n";
    my $pad = $ebug->pad;
    for my $var (sort keys %$pad) {
        if (ref $pad->{$var}) {
            for my $line (split /\n/, Data::Dumper->Dump([$pad->{$var}], [$var])) {
                print "++  $line\n";
            }
        } else {
            print "++  $var = $pad->{$var}\n";
        }
    }
    for my $line ($ebug->codelines($ebug->line-3 .. $ebug->line-1)) {
        next unless defined $line;
        print "+   $line\n";
    }
    print "+>  ", $ebug->codeline, "\n";
    for my $line ($ebug->codelines($ebug->line+1 .. $ebug->line+3)) {
        next unless defined $line;
        print "+   $line\n";
    }
    $ebug->step;
}