/ 
PICA-Modification-0.16
River stage zero No dependents
/ PICA::Modification::Queue::Smart

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.