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.901';
4              
5 3     3   874 use strict;
  3         9  
  3         106  
6 3     3   14 use warnings;
  3         4  
  3         64  
7 3     3   13 use Carp ();
  3         6  
  3         44  
8 3     3   846 use parent 'UV::Handle';
  3         636  
  3         14  
9              
10             sub _new_args {
11 2     2   6 my ($class, $args) = @_;
12 2   33     10 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 605 my $self = shift;
18 1 50       5 if (@_) {
19 0         0 $self->on('signal', shift);
20             }
21 1         27 $self->_start;
22             }
23              
24             1;
25              
26             __END__