blib/lib/UV/Prepare.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 24 | 24 | 100.0 |
branch | 3 | 4 | 75.0 |
condition | n/a | ||
subroutine | 5 | 5 | 100.0 |
pod | 1 | 1 | 100.0 |
total | 33 | 34 | 97.0 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package UV::Prepare; | ||||||
2 | |||||||
3 | our $VERSION = '1.901'; | ||||||
4 | |||||||
5 | 4 | 4 | 1348 | use strict; | |||
4 | 11 | ||||||
4 | 119 | ||||||
6 | 4 | 4 | 17 | use warnings; | |||
4 | 8 | ||||||
4 | 89 | ||||||
7 | 4 | 4 | 17 | use Carp (); | |||
4 | 9 | ||||||
4 | 73 | ||||||
8 | 4 | 4 | 904 | use parent 'UV::Handle'; | |||
4 | 634 | ||||||
4 | 18 | ||||||
9 | |||||||
10 | sub start { | ||||||
11 | 2 | 2 | 1 | 657 | my $self = shift; | ||
12 | 2 | 100 | 37 | if (@_) { | |||
13 | 1 | 19 | $self->on('prepare', shift); | ||||
14 | } | ||||||
15 | 2 | 6 | my $res; | ||||
16 | 2 | 5 | my $err = do { #catch | ||||
17 | 2 | 4 | local $@; | ||||
18 | 2 | 5 | eval { | ||||
19 | 2 | 9 | $res = $self->_start(); | ||||
20 | 2 | 5 | 1; | ||||
21 | }; #try | ||||||
22 | 2 | 9 | $@; | ||||
23 | }; | ||||||
24 | 2 | 50 | 7 | Carp::croak($err) if $err; # throw | |||
25 | 2 | 6 | return $res; | ||||
26 | } | ||||||
27 | |||||||
28 | 1; | ||||||
29 | |||||||
30 | __END__ |