$ perl -Mstrict -we'$_ = time; print "$_

"'

1583887020

<.<

$ perl -Mstrict -we'$_ = CORE::time; print "$_

"'

1583887039

>.>

$ perl -Mstrict -we'$_ = time - CORE::time; print "$_

"'

0

-_- ...

$ perl -Mstrict -we'BEGIN{*CORE::GLOBAL::time=sub{42}} $_ = time - CORE::time; print "$_

"'

42

(┛◉Д◉)┛彡┻━

$ perl -Mstrict -we'BEGIN{*CORE::GLOBAL::time=sub{42}} $_ = time() - CORE::time; print "$_

"'

-1583886770



🧑🔬

$ alias deparse='perl -Mstrict -MO=Deparse,-p -we'

$ deparse 'BEGIN{*CORE::GLOBAL::time=sub{42}} $_ = time - CORE::time; print "$_

"'

BEGIN { $^W = 1; }

use strict;

sub BEGIN {

(*CORE::GLOBAL::time = sub {

42;

}

);

}

($_ = time((-time))); # !!!

print("$_

");

-e syntax OK

$ deparse '$_ = time - CORE::time; print "$_

"'

BEGIN { $^W = 1; }

use strict;

($_ = (time - time)); # O.o

print("$_

");

-e syntax OK

$ deparse 'BEGIN{*CORE::GLOBAL::time=sub{42}} $_ = time() - CORE::time; print "$_

"'

BEGIN { $^W = 1; }

use strict;

sub BEGIN {

(*CORE::GLOBAL::time = sub {

42;

}

);

}

($_ = (time() - time)); # ✓

print("$_

");

-e syntax OK



🤔

$ perl -Mstrict -we'sub foo{42} $_ = foo - CORE::time; print "$_

"'

42

$ perl -Mstrict -we'sub foo{42} $_ = foo() - CORE::time; print "$_

"'

-1583887692



🧑💡

$ perl -Mstrict -we'sub foo{42} print prototype(\&foo), $/'

Use of uninitialized value in print at -e line 1.

$ perl -Mstrict -we'BEGIN{*CORE::GLOBAL::time=sub{42}} print prototype(\&time) . "

"'

Use of uninitialized value in concatenation (.) or string at -e line 1.

$ perl -Mstrict -we'BEGIN{*CORE::GLOBAL::time=sub{42}} print ">" . prototype(\&CORE::time) . " ><



()!

$ perl -Mstrict -we'sub foo(){42} $_ = foo - CORE::time; print "$_

"'

-1583888475

$ perl -Mstrict -we'BEGIN{*CORE::GLOBAL::time=sub(){42}} $_ = time - CORE::time; print "$_

"'

-1583888509

¯\_(ツ)_/¯

