File Coverage

lib/Devel/ebug/Plugin/State.pm

Criterion	Covered	Total	%
statement	6	12	50.0
branch			n/a
condition			n/a
subroutine	2	4	50.0
pod	0	2	0.0
total	8	18	44.4

package Devel::ebug::Plugin::State;

use strict;
use base qw(Exporter);

our @EXPORT = qw(get_state set_state);

sub get_state {
    my( $self ) = @_;
    my $response = $self->talk( { command   => "get_state",
                                  } );
    return $response;
}

sub set_state {
    my( $self, $state ) = @_;
    my $response = $self->talk( { command   => "set_state",
                                  state     => $state,
                                  } );
    return $response;
}

1;