File Coverage

blib/lib/Event/io.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition 1 2 50.0
subroutine 3 3 100.0
pod 0 1 0.0
total 15 17 88.2


line stmt bran cond sub pod time code
1 25     25   187 use strict;
  25         55  
  25         964  
2             package Event::io;
3 25     25   120 use vars qw(@ISA @EXPORT_OK @ATTRIBUTE);
  25         49  
  25         3652  
4             @ISA = qw(Event::Watcher Exporter);
5             @EXPORT_OK = qw(R W E T); # bit constants
6             @ATTRIBUTE = qw(poll fd timeout timeout_cb);
7              
8             'Event::Watcher'->register;
9              
10             sub new {
11             # lock %Event::;
12              
13 3743     3743 0 5898 my $class = shift;
14 3743         11884 my %arg = @_;
15 3743   50     28454 my $o = allocate($class, delete $arg{attach_to} || {});
16 3743         11858 $o->init(\%arg);
17 3740         13070 $o;
18             }
19              
20             1;