File Coverage

blib/lib/Message/Passing/Output/STDERR.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 13 13 100.0


line stmt bran cond sub pod time code
1             package Message::Passing::Output::STDERR;
2 5     5   727 use Moo;
  5         13  
  5         38  
3 5     5   3215 use namespace::clean -except => 'meta';
  5         31423  
  5         42  
4              
5             with 'Message::Passing::Role::Output';
6              
7             sub consume {
8 2     2 1 5 my $self = shift;
9 2         9 local $|=1;
10 2         97 print STDERR shift() . "\n";
11             }
12              
13              
14             1;
15              
16             =head1 NAME
17              
18             Message::Passing::Output::STDOUT - STDOUT output
19              
20             =head1 SYNOPSIS
21              
22             message-pass --input STDIN --output STDERR
23             {"foo": "bar"}
24             {"foo":"bar"}
25              
26             =head1 DESCRIPTION
27              
28             Output messages to STDERR
29              
30             =head1 METHODS
31              
32             =head2 consume
33              
34             Consumes a message by printing it, followed by \n
35              
36             =head1 SEE ALSO
37              
38             L<Message::Passing>
39              
40             =head1 SPONSORSHIP
41              
42             This module exists due to the wonderful people at Suretec Systems Ltd.
43             <http://www.suretecsystems.com/> who sponsored its development for its
44             VoIP division called SureVoIP <http://www.surevoip.co.uk/> for use with
45             the SureVoIP API -
46             <http://www.surevoip.co.uk/support/wiki/api_documentation>
47              
48             =head1 AUTHOR, COPYRIGHT AND LICENSE
49              
50             See L<Message::Passing>.
51              
52             =cut