NAME

POE::Component::DirWatch::Object::NewUnmodifiedFile

SYNOPSIS

  use POE::Component::DirWatch::Object::NewUnmodifiedFile;

  #$watcher is a PoCo::DW:Object::NewUnmodifiedFile
  my $watcher = POE::Component::DirWatch::Object::NewUnmodifiedFile->new
    (
     alias      => 'dirwatch',
     directory  => '/some_dir',
     filter     => sub { $_[0] =~ /\.gz$/ && -f $_[1] },
     callback   => \&some_sub,
     interval   => 1,
    );

  $poe_kernel->run;

DESCRIPTION

POE::Component::DirWatch::Object::NewUnmodifiedFile extends DirWatch::Object in order to exclude files that have already been processed

Accessors

seen_files

Read-write. Will return a hash ref in with keys will be the full path of all previously processed documents.

Extended methods

dispatch

override 'dispatch' Don't dispatch if file has been seen.

poll

before 'poll' the list of known files is checked and if any of the files no longer exist they are removed from the list of known files to avoid the list growing out of control.

AUTHOR

Dominic Humphries <perl@oneandoneis2.com> Based on POE::Component::DirWatch::Object::NewFile by Guillermo Roditi, <groditi@cpan.org>

COPYRIGHT

Copyright 2018- Dominic Humphries

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO