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   30312 use strict;
  19         44  
  19         622  
4 19     19   95 use warnings;
  19         51  
  19         565  
5 19     19   90 use base qw(Exporter);
  19         32  
  19         3632  
6             our @EXPORT = qw(filenames);
7              
8             our $VERSION = '0.63'; # VERSION
9              
10             # list filenames
11             sub filenames {
12 2     2 0 105 my($self) = @_;
13 2         16 my $response = $self->talk({ command => "filenames" });
14 2         10 return @{$response->{filenames}};
  2         76  
15             }
16              
17              
18             1;
19              
20             __END__