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   11069 use strict;
  19         37  
  19         559  
4 19     19   88 use warnings;
  19         33  
  19         574  
5 19     19   102 use base qw(Exporter);
  19         43  
  19         3771  
6             our @EXPORT = qw(output);
7              
8             our $VERSION = '0.63'; # VERSION
9              
10             # return stdout, stderr
11             sub output {
12 10     10 0 8073 my($self) = @_;
13 10         58 my $response = $self->talk({ command => "output" });
14 10         135 return ($response->{stdout}, $response->{stderr});
15             }
16              
17              
18             1;
19              
20             __END__