File Coverage

blib/lib/WWW/Slides/Controller/STDIO.pm
Criterion Covered Total %
statement 28 28 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 35 35 100.0


line stmt bran cond sub pod time code
1             package WWW::Slides::Controller::STDIO;
2             {
3 3     3   32959 use version; our $VERSION = qv('0.0.9');
  3         4390  
  3         15  
4              
5 3     3   251 use warnings;
  3         4  
  3         83  
6 3     3   14 use strict;
  3         5  
  3         74  
7 3     3   14 use Carp;
  3         5  
  3         274  
8              
9 3     3   2769 use Object::InsideOut qw( WWW::Slides::Controller::Single );
  3         132550  
  3         21  
10 3     3   2450 use IO::Handle;
  3         14294  
  3         372  
11              
12             # Module implementation here
13             sub _init : PreInit { # Generate the UDP socket
14 1         7391 my $self = shift;
15 1         3 my ($args) = @_;
16 1         6 binmode STDIN;
17 1         2 $args->{in_handle} = \*STDIN;
18 1         12 autoflush STDOUT 1;
19 1         101 binmode STDOUT;
20 1         4 $args->{out_handle} = \*STDOUT;
21 3     3   19 } ## end sub _init :
  3         4  
  3         23  
22             }
23             1; # Magic true value required at end of module
24             __END__