Caching

This page will update once every 10 seconds.

Hello World !{! localtime() !}

__PERL__ # The following would work in place of the meta tags # #use WebDyne::Static; #use WebDyne::Cache (\&cache); sub cache { my $self=shift(); # Get cache file mtime (modified time) # my $mtime=${ $self->cache_mtime() }; # If older than 10 seconds force recompile # if ((time()-$mtime) > 10) { $self->cache_compile(1) }; # Done # return \undef; }