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   30824 use strict;
  19         43  
  19         594  
4 19     19   91 use warnings;
  19         36  
  19         569  
5 19     19   101 use base qw(Exporter);
  19         32  
  19         3920  
6             our @EXPORT = qw(filenames);
7              
8             our $VERSION = '0.64'; # VERSION
9              
10             # list filenames
11             sub filenames {
12 2     2 0 128 my($self) = @_;
13 2         19 my $response = $self->talk({ command => "filenames" });
14 2         51 return @{$response->{filenames}};
  2         84  
15             }
16              
17              
18             1;
19              
20             __END__