# --- Functions to process the 'time' data type sub new { my @t = (time, times, @_ == 2 ? $_[1] : 0); print "new=@t\n" if $debug; bless \@t; }
Sample Text