POSIX (); use Time::Local (); use Time::Zone (); use feature 'state'; sub TO_JSON { shift->strftime('%F %T%z') } # JSON::XS compatible use overload 'bool' => sub { 1 }, '""'