File Coverage

lib/Devel/ebug/Plugin/EvalLevel.pm

Criterion	Covered	Total	%
statement	6	9	66.6
branch	0	2	0.0
condition			n/a
subroutine	2	3	66.6
pod	0	1	0.0
total	8	15	53.3

package Devel::ebug::Plugin::EvalLevel;

use strict;
use base qw(Exporter);

our @EXPORT = qw(eval_level);

# eval expression and return the result as a tree of depth "level"
sub eval_level {
    my( $self, $expr, $level ) = @_;
    my $response = $self->talk( { command => "eval_level",
                                  eval    => $expr,
                                  level   => $level,
                                  } );
    return wantarray ? ( $response->{eval}, $response->{exception} ) :
                       $response->{eval};
}

1;