-sub run_time
-{
- # Martin A. Hansen, May 2009.
-
- # Returns a precision timestamp for calculating
- # run time.
-
- return Maasha::Common::get_time_hires();
-}
-
-
-sub run_time_print
-{
- # Martin A. Hansen, May 2009
-
- # Print the run time to STDERR for the current script if
- # the verbose switch is set in the option hash.
-
- my ( $t0, # run time begin
- $t1, # run time end
- $options, # options hash
- ) = @_;
-
- # Returns nothing
-
- my $script = Maasha::Common::get_scriptname();
-
- print STDERR "Program: $script" . ( " " x ( 25 - length( $script ) ) ) . sprintf( "Run time: %.4f\n", ( $t1 - $t0 ) ) if $options->{ 'verbose' };
-
-}
-
-