blib/lib/UV/Idle.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 23 | 24 | 95.8 |
branch | 2 | 4 | 50.0 |
condition | n/a | ||
subroutine | 5 | 5 | 100.0 |
pod | 1 | 1 | 100.0 |
total | 31 | 34 | 91.1 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package UV::Idle; | ||||||
2 | |||||||
3 | our $VERSION = '1.902'; | ||||||
4 | |||||||
5 | 4 | 4 | 1448 | use strict; | |||
4 | 14 | ||||||
4 | 132 | ||||||
6 | 4 | 4 | 21 | use warnings; | |||
4 | 6 | ||||||
4 | 104 | ||||||
7 | 4 | 4 | 949 | use parent 'UV::Handle'; | |||
4 | 684 | ||||||
4 | 20 | ||||||
8 | |||||||
9 | 4 | 4 | 179 | use Carp (); | |||
4 | 17 | ||||||
4 | 469 | ||||||
10 | |||||||
11 | sub start { | ||||||
12 | 1 | 1 | 1 | 696 | my $self = shift; | ||
13 | 1 | 50 | 6 | if (@_) { | |||
14 | 0 | 0 | $self->on('idle', shift); | ||||
15 | } | ||||||
16 | 1 | 3 | my $res; | ||||
17 | 1 | 2 | my $err = do { #catch | ||||
18 | 1 | 2 | local $@; | ||||
19 | 1 | 2 | eval { | ||||
20 | 1 | 5 | $res = $self->_start(); | ||||
21 | 1 | 2 | 1; | ||||
22 | }; #try | ||||||
23 | 1 | 3 | $@; | ||||
24 | }; | ||||||
25 | 1 | 50 | 4 | Carp::croak($err) if $err; # throw | |||
26 | 1 | 3 | return $res; | ||||
27 | } | ||||||
28 | |||||||
29 | 1; | ||||||
30 | |||||||
31 | __END__ |