File Coverage

lib/Devel/ebug/Wx/Command/Run.pm

Criterion	Covered	Total	%
statement	9	16	56.2
branch			n/a
condition			n/a
subroutine	3	9	33.3
pod	0	2	0.0
total	12	27	44.4

package Devel::ebug::Wx::Command::Run;

use strict;
use Devel::ebug::Wx::Plugin qw(:plugin);

sub commands : Command {
    return
      ( run_menu => { tag      => 'run',
                      label    => 'Run',
                      priority => 200,
                      },
        next     => { sub      => sub { $_[0]->ebug->next },
                      key      => 'Alt-N',
                      menu     => 'run',
                      label    => 'Next',
                      priority => 20,
                      },
        step     => { sub      => sub { $_[0]->ebug->step },
                      key      => 'Alt-S',
                      menu     => 'run',
                      label    => 'Step',
                      priority => 20,
                      },
        return   => { sub      => sub { $_[0]->ebug->return },
                      key      => 'Alt-U',
                      menu     => 'run',
                      label    => 'Return',
                      priority => 20,
                      },
        run      => { sub      => sub { $_[0]->ebug->run },
                      key      => 'Alt-R',
                      menu     => 'run',
                      label    => 'Run',
                      priority => 10,
                      },
        restart  => { sub      => \&restart,
                      menu     => 'run',
                      label    => 'Restart',
                      priority => 30,
                      },
        );
}

sub restart {
    my( $wx ) = @_;

    $wx->ebug->reload_program;
}

1;