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 24     24   159 use strict;
  24         82  
  24         796  
2             package Event::signal;
3 24     24   120 use Carp;
  24         46  
  24         1254  
4 24     24   132 use base 'Event::Watcher';
  24         49  
  24         2381  
5 24     24   152 use vars qw($DefaultPriority @ATTRIBUTE);
  24         46  
  24         3322  
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 8 my $class = shift;
15 4         14 my %arg = @_;
16 4   50     223 my $o = allocate($class, delete $arg{attach_to} || {});
17 4         31 $o->init(\%arg);
18 3         14 $o;
19             }
20              
21             1;