File Coverage

blib/lib/Event/var.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition 1 2 50.0
subroutine 4 4 100.0
pod 0 1 0.0
total 19 21 90.4


line stmt bran cond sub pod time code
1 25     25   178 use strict;
  25         2010  
  25         2971  
2             package Event::var;
3 25     25   130 use base 'Event::Watcher';
  25         49  
  25         9035  
4 25     25   174 use vars qw(@ATTRIBUTE);
  25         42  
  25         6888  
5             @ATTRIBUTE = qw(var poll);
6              
7             'Event::Watcher'->register;
8              
9             sub new {
10             # lock %Event::;
11              
12 10     10 0 22 my $class = shift;
13 10         34 my %arg = @_;
14 10   50     279 my $o = allocate($class, delete $arg{attach_to} || {});
15 10         54 $o->init(\%arg);
16 7         29 $o;
17             }
18              
19             1;