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