File Coverage

blib/lib/Feersum/Connection.pm
Criterion Covered Total %
statement 30 31 96.7
branch n/a
condition n/a
subroutine 10 11 90.9
pod 1 1 100.0
total 41 43 95.3


line stmt bran cond sub pod time code
1             package Feersum::Connection;
2 139     139   757 use warnings;
  139         206  
  139         6792  
3 139     139   566 use strict;
  139         186  
  139         2862  
4 139     139   449 use Carp qw/croak/;
  139         191  
  139         7096  
5 139     139   2533 use IO::Socket::INET;
  139         72201  
  139         1634  
6              
7             sub new {
8 0     0 1 0 croak "Cannot instantiate Feersum::Connection directly";
9             }
10              
11             sub _initiate_streaming_psgi {
12 16     16   172881 my ($self, $streamer) = @_;
13 16     7   100 return $streamer->(sub { $self->_continue_streaming_psgi(@_) });
  7         1366027  
14             }
15              
16             my $_pkg = "Feersum::";
17             sub _raw { ## no critic (RequireArgUnpacking)
18             # don't shift; want to modify $_[0] directly.
19 21     21   6455728 my $fileno = $_[1];
20 21         121 my $name = "RAW$fileno";
21             # Hack to make gensyms via new_from_fd() show up in the Feersum package.
22             # This may or may not save memory (HEKs?) over true gensyms.
23 139     139   81256 no warnings 'redefine';
  139         262  
  139         7866  
24             local *IO::Handle::gensym = sub {
25 139     139   636 no strict;
  139         691  
  139         15374  
26 21     21   189 my $gv = \*{$_pkg.$name};
  21         456  
27 21         105 delete $$_pkg{$name};
28 21         95 $gv;
29 21         2130 };
30             # Replace $_[0] directly:
31 21         597 $_[0] = IO::Socket::INET->new_from_fd($fileno, '+<');
32             # after this, Feersum will use PerlIO_unread to put any remainder data
33             # into the socket.
34 21         2705 return;
35             }
36             1;
37             __END__