Test::Continuous Windows, script, :
use File::ChangeNotify;
$| = 1;
my $watcher = File::ChangeNotify->instantiate_watcher(
directories => [ 't', 'lib' ],
filter => qr/\.t|\.pl|\.pm/,
);
while (my @events = $watcher->wait_for_events) {
print `prove -l -r -t --timer`;
}
source
share