POE::Component::DirWatch::Unmodified - POE::Component::DirWatch::Unmodified documentation

POE-Component-DirWatch documentation Contained in the POE-Component-DirWatch distribution.

Index

Code Index:

NAME

Top

POE::Component::DirWatch::Unmodified

DESCRIPTION

Top

POE::Component::DirWatch::Unmodified extends DirWatch::New to exclude files that appear to be in use or are actively being changed. To prevent files from being processed multiple times it is adviced that files are moved after successful processing.

This module consumes the POE::Component::DirWatch::Role::Signatures role, please see its documentation for information about methods or attributes it provides or extends.

METHODS

Top

_file_callback

around '_file_callback' is modified to only execute the callback if the file has been seen previously and its signature has not changed since the last poll. This behavior means that callbacks will not be called until the second time they are seen.

meta

Keeping tests happy.

SEE ALSO

Top

POE::Component::DirWatch, Moose

COPYRIGHT

Top

Copyright 2006-2008 Guillermo Roditi. This is free software; you may redistribute it and/or modify it under the same terms as Perl itself.

POE-Component-DirWatch documentation Contained in the POE-Component-DirWatch distribution. 
package POE::Component::DirWatch::Unmodified;

use POE;
use Moose;

our $VERSION = "0.300000";

extends 'POE::Component::DirWatch';
with 'POE::Component::DirWatch::Role::Signatures';

#--------#---------#---------#---------#---------#---------#---------#---------

around _file_callback => sub {
  my $orig = shift;
  my ($self, $kernel, $file) = @_[OBJECT, KERNEL, ARG0];
  my $sig = delete $self->signatures->{"$file"};
  return unless defined $sig && $sig->is_same;
  $orig->(@_);
};

__PACKAGE__->meta->make_immutable;

1;

__END__;

#--------#---------#---------#---------#---------#---------#---------#---------