File Coverage

lib/Devel/ebug/Plugin/Filenames.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 17 18 94.4


line stmt bran cond sub pod time code
1             package Devel::ebug::Plugin::Filenames;
2              
3 19     19   27880 use strict;
  19         40  
  19         579  
4 19     19   86 use warnings;
  19         30  
  19         560  
5 19     19   136 use base qw(Exporter);
  19         31  
  19         3738  
6             our @EXPORT = qw(filenames);
7              
8             our $VERSION = '0.62_01'; # TRIAL VERSION
9             $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval)
10              
11             # list filenames
12             sub filenames {
13 2     2 0 99 my($self) = @_;
14 2         31 my $response = $self->talk({ command => "filenames" });
15 2         11 return @{$response->{filenames}};
  2         64  
16             }
17              
18              
19             1;
20              
21             __END__