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 24     24   77 use strict;
  24         23  
  24         745  
2             package Event::io;
3 24     24   69 use vars qw(@ISA @EXPORT_OK @ATTRIBUTE);
  24         24  
  24         2755  
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 4655     4655 0 3338 my $class = shift;
14 4655         9332 my %arg = @_;
15 4655   50     22248 my $o = allocate($class, delete $arg{attach_to} || {});
16 4655         7792 $o->init(\%arg);
17 4652         12005 $o;
18             }
19              
20             1;