File Coverage

blib/lib/UV/Stream.pm
Criterion Covered Total %
statement 20 20 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 2 2 100.0
total 29 30 96.6


line stmt bran cond sub pod time code
1             package UV::Stream;
2              
3             our $VERSION = '1.902';
4              
5 9     9   4012 use strict;
  9         19  
  9         254  
6 9     9   41 use warnings;
  9         16  
  9         224  
7 9     9   101 use Carp ();
  9         14  
  9         247  
8 9     9   49 use parent 'UV::Handle';
  9         14  
  9         79  
9              
10             sub listen
11             {
12 2     2 1 1795 my $self = shift;
13 2         6 my ($backlog, $cb) = @_;
14              
15 2 50       22 $self->on(connection => $cb) if $cb;
16 2         50 $self->_listen($backlog);
17             }
18              
19             sub accept
20             {
21 2     2 1 28 my $self = shift;
22              
23 2         52 my $client = (ref $self)->_new($self->loop);
24              
25 2         24 $self->_accept($client);
26              
27 2         6 return $client;
28             }
29              
30             1;
31              
32             __END__