use strict;
use warnings;
use Data::Dump qw/pp dd/;



BEGIN {
    
    push @DB::typeahead, split /\n/, <<'__DB__';
B *                                     # delete all Breakpoints
# --- these should fail
b testsub1
b testsub2
b testsub3

b postpone testsub1
b compile testsub1

b postpone testsub2
b compile testsub2

b postpone testsub3
b compile testsub3

L                                       # list breakpoints

use lib '.';
use db_demo_postpone qw(testsub3);

L

c
__DB__

    
    # use after debug-commands
    #    use lib '.';
    #    use db_demo_postpone qw(testsub3);
}





eval <<'__CODE__';
sub testsub1 {
   warn "inside testsub1";
}
__CODE__

*testsub2 = sub {
    warn "inside testsub2";
};



warn "before";

testsub1();

warn "after1";

testsub2();

warn "after2";

testsub3();

warn "after3";