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__ |