File Coverage

blib/lib/AnyEvent/Filesys/Notify/Role/Fallback.pm
Criterion Covered Total %
statement 19 19 100.0
branch 1 2 50.0
condition n/a
subroutine 7 7 100.0
pod n/a
total 27 28 96.4


line stmt bran cond sub pod time code
1             package AnyEvent::Filesys::Notify::Role::Fallback;
2              
3             # ABSTRACT: Fallback method of file watching (check in regular intervals)
4              
5 5     5   2718 use Moo::Role;
  5         5  
  5         31  
6 5     5   1188 use MooX::late;
  5         9  
  5         31  
7 5     5   527 use namespace::autoclean;
  5         8  
  5         61  
8 5     5   314 use AnyEvent;
  5         7  
  5         93  
9 5     5   25 use Carp;
  5         6  
  5         744  
10              
11             our $VERSION = '1.21';
12              
13             sub _init {
14 6     6   8 my $self = shift;
15              
16             $self->_watcher(
17             AnyEvent->timer(
18             after => $self->interval,
19             interval => $self->interval,
20             cb => sub {
21 16     16   7749886 $self->_process_events();
22 6 50       52 } ) ) or croak "Error creating timer: $@";
23              
24 6         3536 return 1;
25             }
26              
27             1;
28              
29             __END__