Testing equivalence: gmtime for cookies from an epoch

gmtime-for-cookies.pl

# instruct Test::Easy's time-equivalence function how to compare an epoch timestamp                                                                                                                              
# to something like "Wed, 24-Apr-2013 16:15:38 GMT"                                                                                                                                                              
Test::Easy::Time->add_format(                                                                                                                                                                                    
  _description => 'gmtime for cookies',                                                                                                                                                                          
  format_epoch_seconds => sub {                                                                                                                                                                                  
    my $gmtime = gmtime($_);                                                                                                                                                                                     
    my ($day, $month, $mday, $time, $year) = split / /, $gmtime;                                                                                                                                                 
    return sprintf '%s, %d-%s-%d %s GMT', $day, $mday, $month, $year, $time;                                                                                                                                     
  },                                                                                                                                                                                                             
);