sub generate_timestamp()

in legacy/perl/topsites.pl [144:153]

• 10 lines of code
• 1 McCabe index (conditional complexity)

sub generate_timestamp {
    return sprintf("%04d%02d%02dT%02d%02d%02dZ",
                   sub { ($_[5]+1900,
                          $_[4]+1,
                          $_[3],
                          $_[2],
                          $_[1],
                          $_[0])
                   }->(gmtime(time)));
}