view release on metacpan or  search on metacpan

eg/CacheWeather.pm  view on Meta::CPAN

@CacheWeather::ISA = qw(Apache::CacheContent);

sub ttl {
  my($self, $r) = @_;

  my $uri = $r->uri;

  return(60)      if ($uri=~ /hourly\.html$/);
  return(60 * 24) if ($uri=~ /daily\.html$/);
  return $self->SUPER::ttl($r);
}

sub handler ($$) {

  my ($self,$r) = @_;

  # Find arguments via the URL...
  my ($city, $period) = $r->uri =~ m!/(.*?)_(hourly|daily)\.html$!;

  return NOT_FOUND unless ($city and $period);