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 <[email protected]> Based on
   POE::Component::DirWatch::Object::NewFile by Guillermo Roditi,
   <[email protected]>

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