yet another time module

Well, again... a silly use for perl. Couldn't resist...

Nah, don't upvote PLZ. The merits go to thezip, again, for his CB entry

my @T = lolcatime(time);
[download]

so grab one of his nodes to upvote. Ready? ok...

package lolcatime;
require Exporter;
our @ISA    = qw(Exporter);
our @EXPORT = qw(lolcatime localtime);
*localtime  = \&lolcatime;
sub lolcatime {
  my $foo;
  return wantarray
  ? CORE::localtime(shift||time)
  : uc((($foo=scalar(CORE::localtime(shift||time)))=~s/:(\d+) / /)
    && "$foo - i can haz ur $1 seconz?");
}
1;
[download]

perl -Mlolcatime -le 'print scalar lolcatime time'
TUE JAN  6 03:41 2009 - I CAN HAZ UR 31 SECONZ?
[download]

kthxbye

--shmem

update: changed title, added sample usage

Comment on yet another time module Select or Download Code

Replies are listed 'Best First'.
Re: yet another time module by Fletch (Bishop) on Jan 06, 2009 at 03:02 UTC
Of course that raises the obvious question, "When can we expect other lolcatian languages extensions?" E.g. `don't::wantarray`. The cake is a lie. The cake is a lie. The cake is a lie.	[reply] [d/l]
Re^2: yet another time module by jdporter (Paladin) on Jan 06, 2009 at 04:29 UTC
`print scalar(%hash);` [download] `0 bukkits!` [download]	[reply] [d/l] [select]
Re^2: yet another time module by pobocks (Chaplain) on Jan 12, 2009 at 16:36 UTC
Wouldn't that be "do_not::wantarray"? ;-) `for(split(" ","tsuJ rehtonA lreP rekcaH")){print reverse . " "}print "\b.\n";`	[reply] [d/l]
Re: yet another time module by Lawliet (Curate) on Jan 06, 2009 at 19:56 UTC
.oO( Did someone say it's lolcat time? ) And you didn't even know bears could type.	[reply]