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.900';
4              
5 9     9   3872 use strict;
  9         30  
  9         253  
6 9     9   42 use warnings;
  9         14  
  9         225  
7 9     9   104 use Carp ();
  9         16  
  9         250  
8 9     9   49 use parent 'UV::Handle';
  9         15  
  9         67  
9              
10             sub listen
11             {
12 2     2 1 1855 my $self = shift;
13 2         7 my ($backlog, $cb) = @_;
14              
15 2 50       22 $self->on(connection => $cb) if $cb;
16 2         51 $self->_listen($backlog);
17             }
18              
19             sub accept
20             {
21 2     2 1 30 my $self = shift;
22              
23 2         51 my $client = (ref $self)->_new($self->loop);
24              
25 2         25 $self->_accept($client);
26              
27 2         7 return $client;
28             }
29              
30             1;
31              
32             __END__