Win32.pm

package Mojo::Server::Morbo::Backend::Win32;

use Mojo::Base 'Mojo::Server::Morbo::Backend';

use File::Spec;
use Win32::ChangeNotify;

use constant MODE => 'ATTRIBUTES|DIR_NAME|FILE_NAME|LAST_WRITE|SECURITY|SIZE';

sub modified_files {
  my $self = shift;

  $self->{watched} ||= [
    map {
      my $path = File::Spec->canonpath($_);
      { path => $path, watcher => Win32::ChangeNotify->new($path, 1, MODE) }
    } @{ $self->watch }
  ];

  my @w = map { $_->{watcher}->reset; $_->{watcher} } @{ $self->{watched} };
  my $n = Win32::ChangeNotify::wait_any(@w, $self->watch_timeout);

  return [] unless $n > 0;
  return [ $self->{watched}[$n-1]{path} ];
}

1;