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   3043 use Moo::Role;
  5         10  
  5         35  
6 5     5   1587 use MooX::late;
  5         8  
  5         31  
7 5     5   617 use namespace::autoclean;
  5         10  
  5         58  
8 5     5   325 use AnyEvent;
  5         16  
  5         128  
9 5     5   28 use Carp;
  5         11  
  5         792  
10              
11             our $VERSION = '1.23';
12              
13             sub _init {
14 6     6   11 my $self = shift;
15              
16             $self->_watcher(
17             AnyEvent->timer(
18             after => $self->interval,
19             interval => $self->interval,
20             cb => sub {
21 16     16   7719930 $self->_process_events();
22 6 50       58 } ) ) or croak "Error creating timer: $@";
23              
24 6         4841 return 1;
25             }
26              
27             1;
28              
29             __END__