view release on metacpan or  search on metacpan

lib/Catalyst/ActionRole/ExpiresHeader.pm  view on Meta::CPAN

29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
    'm' => 60,
    'h' => 60*60,
    'd' => 60*60*24,
    'M' => 60*60*24*30,
    'y' => 60*60*24*365
);
 
sub _parse_Expires_attr {
    my ($self, $time) = @_;
 
    # below code is copied from CGI::Util for compability with CGI::Cookie
    my($offset);
    if (!$time || (lc($time) eq 'now')) {
      $offset = 0;
    } elsif ($time=~/^\d+/) {
      return $time;
    } elsif ($time=~/^([+-]?(?:\d+|\d*\.\d*))([smhdMy])/) {
      $offset = ($mult{$2} || 1)*$1;
    } else {
      return $time;
    }