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.902';
4              
5 3     3   986 use strict;
  3         12  
  3         90  
6 3     3   15 use warnings;
  3         5  
  3         72  
7 3     3   12 use Carp ();
  3         5  
  3         49  
8 3     3   978 use parent 'UV::Handle';
  3         659  
  3         15  
9              
10             sub _new_args {
11 2     2   6 my ($class, $args) = @_;
12 2   33     9 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 661 my $self = shift;
18 1 50       5 if (@_) {
19 0         0 $self->on('signal', shift);
20             }
21 1         29 $self->_start;
22             }
23              
24             1;
25              
26             __END__