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   11401 use strict;
  19         37  
  19         554  
4 19     19   100 use warnings;
  19         32  
  19         632  
5 19     19   97 use base qw(Exporter);
  19         30  
  19         4449  
6             our @EXPORT = qw(basic);
7              
8             our $VERSION = '0.64'; # VERSION
9              
10             # get basic debugging information
11             sub basic {
12 172     172 0 521 my ($self) = @_;
13 172         912 my $response = $self->talk({ command => "basic" });
14 172         1415 $self->codeline($response->{codeline});
15 172         2371 $self->filename($response->{filename});
16 172         1779 $self->finished($response->{finished});
17 172         1641 $self->line($response->{line});
18 172         1621 $self->package($response->{package});
19 172         1593 $self->subroutine($response->{subroutine});
20             }
21              
22             1;
23              
24             __END__