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   75 use strict;
  24         25  
  24         620  
2             package Event::signal;
3 24     24   64 use Carp;
  24         23  
  24         986  
4 24     24   74 use base 'Event::Watcher';
  24         22  
  24         1364  
5 24     24   89 use vars qw($DefaultPriority @ATTRIBUTE);
  24         19  
  24         2456  
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 6 my $class = shift;
15 4         9 my %arg = @_;
16 4   50     175 my $o = allocate($class, delete $arg{attach_to} || {});
17 4         19 $o->init(\%arg);
18 3         10 $o;
19             }
20              
21             1;