wang-q/AlignDB-Stopwatch

Record running time and print standard messages

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 <wang-q@outlook.com>

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.