NAME

File::IfModified - Perl extension for checking if-modified state of file

SYNOPSIS

  use File::IfModified qw(if_modified);

  my $cached_data;
  my $file = 'data for initialization of $cached_data';
  while( 1 ){
    if ( if_modified( $file ){
      
        # Open $file and
        # Init $cached_data
        ...
    } 
    # Use $cached_data
    ... 
    sleep 1;
  }

DESCRIPTION

  This module usefull for long running script with external dependenses on other files

EXPORT

None by default.

EXPORT_OK

if_modified( $file ) --- return status of $file for current script

touch( $file ) --- perl equivalent of unix touch

vtouch( $file ) --- virtual equivalent of touch: Flush internal cache "if_modified" for current file

vtouch_all( $file ) --- flush all "if_modified" cache.

SEE ALSO

    L<File-Modified>.

AUTHOR

A. G. Grishaev, <grian@cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2011 by A. G. Grishaev

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.14.1 or, at your option, any later version of Perl 5 you may have available.