File Coverage

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__