Perl-File-Watcher

用 File::ChangeNotify 模块, 需要 Sub::Identify 模块.

基本用法:

use File::ChangeNotify;

my $watcher =
    File::ChangeNotify->instantiate_watcher
        ( directories => [ '/my/path', '/my/other' ],
          filter      => qr/\.(?:pm|conf|yml)$/,
        );

if ( my @events = $watcher->new_events ) { ... }

# blocking
while ( my @events = $watcher->wait_for_events ) { ... }

这里的 $watcher->new_events 用于判断是否有 events 发生.