File Coverage

lib/Devel/ebug/Plugin/Basic.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 21 22 95.4


line stmt bran cond sub pod time code
1             package Devel::ebug::Plugin::Basic;
2              
3 19     19   10666 use strict;
  19         35  
  19         638  
4 19     19   87 use warnings;
  19         30  
  19         504  
5 19     19   90 use base qw(Exporter);
  19         30  
  19         4363  
6             our @EXPORT = qw(basic);
7              
8             our $VERSION = '0.62_01'; # TRIAL VERSION
9             $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval)
10              
11             # get basic debugging information
12             sub basic {
13 172     172 0 469 my ($self) = @_;
14 172         870 my $response = $self->talk({ command => "basic" });
15 172         1523 $self->codeline($response->{codeline});
16 172         2268 $self->filename($response->{filename});
17 172         1763 $self->finished($response->{finished});
18 172         1577 $self->line($response->{line});
19 172         1546 $self->package($response->{package});
20 172         1407 $self->subroutine($response->{subroutine});
21             }
22              
23             1;
24              
25             __END__