File Coverage

lib/Devel/ebug/Plugin/Output.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 16 17 94.1


line stmt bran cond sub pod time code
1             package Devel::ebug::Plugin::Output;
2              
3 19     19   10099 use strict;
  19         35  
  19         514  
4 19     19   82 use warnings;
  19         33  
  19         514  
5 19     19   83 use base qw(Exporter);
  19         44  
  19         3606  
6             our @EXPORT = qw(output);
7              
8             our $VERSION = '0.62_01'; # TRIAL VERSION
9             $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval)
10              
11             # return stdout, stderr
12             sub output {
13 10     10 0 6984 my($self) = @_;
14 10         48 my $response = $self->talk({ command => "output" });
15 10         170 return ($response->{stdout}, $response->{stderr});
16             }
17              
18              
19             1;
20              
21             __END__