File Coverage

blib/lib/UV/Signal.pm
Criterion Covered Total %
statement 18 19 94.7
branch 1 2 50.0
condition 1 3 33.3
subroutine 6 6 100.0
pod 1 1 100.0
total 27 31 87.1


line stmt bran cond sub pod time code
1             package UV::Signal;
2              
3             our $VERSION = '1.900';
4              
5 3     3   996 use strict;
  3         13  
  3         94  
6 3     3   13 use warnings;
  3         5  
  3         66  
7 3     3   13 use Carp ();
  3         6  
  3         47  
8 3     3   941 use parent 'UV::Handle';
  3         661  
  3         13  
9              
10             sub _new_args {
11 2     2   5 my ($class, $args) = @_;
12 2   33     11 my $signum = delete $args->{signal} // delete $args->{single_arg};
13 2         11 return ($class->SUPER::_new_args($args), $signum);
14             }
15              
16             sub start {
17 1     1 1 643 my $self = shift;
18 1 50       5 if (@_) {
19 0         0 $self->on('signal', shift);
20             }
21 1         26 $self->_start;
22             }
23              
24             1;
25              
26             __END__