blib/lib/UV/Pipe.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 15 | 15 | 100.0 |
branch | n/a | ||
condition | n/a | ||
subroutine | 5 | 5 | 100.0 |
pod | 1 | 1 | 100.0 |
total | 21 | 21 | 100.0 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package UV::Pipe; | ||||||
2 | |||||||
3 | our $VERSION = '1.901'; | ||||||
4 | |||||||
5 | 5 | 5 | 2267 | use strict; | |||
5 | 12 | ||||||
5 | 164 | ||||||
6 | 5 | 5 | 24 | use warnings; | |||
5 | 7 | ||||||
5 | 117 | ||||||
7 | 5 | 5 | 22 | use Carp (); | |||
5 | 9 | ||||||
5 | 84 | ||||||
8 | 5 | 5 | 1810 | use parent 'UV::Stream'; | |||
5 | 1209 | ||||||
5 | 24 | ||||||
9 | |||||||
10 | sub open | ||||||
11 | { | ||||||
12 | 3 | 3 | 1 | 744 | my $self = shift; | ||
13 | 3 | 20 | my ($fh) = @_; | ||||
14 | 3 | 317 | return $self->_open($fh->fileno); | ||||
15 | } | ||||||
16 | |||||||
17 | 1; | ||||||
18 | |||||||
19 | __END__ |