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   2470 use Moo::Role;
  5         6  
  5         25  
6 5     5   1183 use MooX::late;
  5         6  
  5         25  
7 5     5   452 use namespace::autoclean;
  5         6  
  5         27  
8 5     5   254 use AnyEvent;
  5         6  
  5         75  
9 5     5   20 use Carp;
  5         5  
  5         672  
10              
11             our $VERSION = '1.20';
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   7750330 $self->_process_events();
22 6 50       46 } ) ) or croak "Error creating timer: $@";
23              
24 6         3395 return 1;
25             }
26              
27             1;
28              
29             __END__