NAME

CTK::Status - Progressbar's system

VIRSION

1.20

$Id: Status.pm 33 2012-11-21 08:54:56Z minus $

HISTORY

1.00

Init version

1.20

On base BeeCDR

SYNOPSIS

use Time::HiRes qw ( sleep ); use CTK::Status;

my $a = 100;

print "start...\n"; CTK::Status::begin('Message blah-blah-blah', *STDOUT); # *STDOUT -- default value foreach (1..$a) { sleep 0.1; CTK::Status::tick($_/$a); } CTK::Status::end(); print "finish!!!\n";

AUTHOR

Serz Minus (Lepenkov Sergey) http://serzik.ru <minus@mail333.com>.

SEE ALSO

perl

DIAGNOSTICS

The usual warnings if it can't read or write the files involved.

COPYRIGHT

This program is distributed under the GNU LGPL v3 (GNU Lesser General Public License version 3).

Copyright (C) 1998-2012 D&D Corporation. All Rights Reserved