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   11277 use strict;
  19         38  
  19         691  
4 19     19   104 use warnings;
  19         52  
  19         654  
5 19     19   130 use base qw(Exporter);
  19         65  
  19         4841  
6             our @EXPORT = qw(basic);
7              
8             our $VERSION = '0.63'; # VERSION
9              
10             # get basic debugging information
11             sub basic {
12 172     172 0 514 my ($self) = @_;
13 172         803 my $response = $self->talk({ command => "basic" });
14 172         1274 $self->codeline($response->{codeline});
15 172         2282 $self->filename($response->{filename});
16 172         1880 $self->finished($response->{finished});
17 172         1641 $self->line($response->{line});
18 172         1737 $self->package($response->{package});
19 172         1494 $self->subroutine($response->{subroutine});
20             }
21              
22             1;
23              
24             __END__