toychain/t/gettics.t

#!/usr/bin/perl
#
# Intent:
#  getting time w/ nanosecond accuracy ...
#
# Note:
#   This work has been done during my time at Doctor I·T
# 
# -- Copyright drit, 2021 --
#
BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }

use essential qw(gettics);


my $tics = &gettics();
printf "tics: %u, 0x%08x\n",$tics,$tics;

exit $?;

1;