NAME

PICA::Modification::Queue::Smart - Queued list of modification requests with checks

VERSION

version 0.16

SYNOPSIS

  # wrap another queue, check after one minute (60 seconds) via unAPI at $url
  my $q = PICA::Modification::Queue::Smart->new( 
      queue => $queue, check => 60, via => $url 
  );

DESCRIPTION

PICA::Modification::Queue::Smart wraps another PICA::Modification::Queue and checks pending modification whether they have been applied:

• New requests are rejected unless the record to be modified could be retrieved.

• New request resulting in no change are automatically set to status 1 (applied).

• On get it is checked whether the modification has been applied after at least check seconds.

METHODS

pending( $modification )

Checks whether a modification or modification request is still pending. Returns 0, 1, or undef (if the status could not be checked).

AUTHOR

Jakob Voß <voss@gbv.de>

COPYRIGHT AND LICENSE

This software is copyright (c) 2012 by Jakob Voß.

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