File Coverage

blib/lib/Event/signal.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition 1 2 50.0
subroutine 5 5 100.0
pod 0 1 0.0
total 23 25 92.0


line stmt bran cond sub pod time code
1 25     25   2100 use strict;
  25         52  
  25         5068  
2             package Event::signal;
3 25     25   4128 use Carp;
  25         1893  
  25         3281  
4 25     25   139 use base 'Event::Watcher';
  25         2217  
  25         2644  
5 25     25   163 use vars qw($DefaultPriority @ATTRIBUTE);
  25         48  
  25         3506  
6             $DefaultPriority = Event::PRIO_HIGH();
7             @ATTRIBUTE = qw(signal);
8              
9             'Event::Watcher'->register;
10              
11             sub new {
12             # lock %Event::
13              
14 4     4 0 10 my $class = shift;
15 4         16 my %arg = @_;
16 4   50     254 my $o = allocate($class, delete $arg{attach_to} || {});
17 4         34 $o->init(\%arg);
18 3         14 $o;
19             }
20              
21             1;