NAME AlignDB::Stopwatch - Record running time and print standard messages SYNOPSIS use AlignDB::Stopwatch; # record command line my $stopwatch = AlignDB::Stopwatch->new->record; # record config $stopwatch->record_conf($opt); $stopwatch->start_message("Doing really bad things..."); $stopwatch->end_message; ATTRIBUTES program_name program name program_argv program command line options program_conf program configurations start_time start time div_char Divider char used in output messages, default is [=] div_length Length of divider char, default is [30] min_div_length minimal single-side divider length, default is [5] uuid Use Data::UUID to generate a UUID that prevent inserting meta info more than one time on multithreads mode METHODS record Record $main::0 to program_name and [@main::ARGV] to program_argv. Getopt::Long would manipulate @ARGV. my $stopwatch = AlignDB::Stopwatch->new->record; record_conf Record a hashref or object to program_conf. $stopwatch->record_conf( $opt ); block_message Print a blocked message $stopwatch->block_message( $message, $with_duration ); start_message Print a starting message $stopwatch->start_message( $message, $embed_in_divider ); end_message Print a ending message $stopwatch->end_message( $message ); AUTHOR Qiang Wang COPYRIGHT AND LICENSE This software is copyright (c) 2008- by Qiang Wang. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.