NAME

CTK::Status - Progressbar's system

VIRSION

Version 1.25

HISTORY

1.00

Init version

1.20

On base BeeCDR

1.21

Documentation modified

1.22

Documentation modified

1.23

Documentation modified

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";

DESCRIPTION

Progressbar's system of your transactions and processes. Note! Functions of this module are not exported

begin

CTK::Status::begin('Message blah-blah-blah', *STDOUT); # *STDOUT -- default value

Begins process

tick

foreach (1..$a) {
    sleep 0.1;
    CTK::Status::tick($_/$a);
}

Show progress state

end

CTK::Status::end();

Finishes process

SEE ALSO

perl, Moose

DIAGNOSTICS

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

AUTHOR

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

COPYRIGHT

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

LICENSE

This program is free software; you can redistribute it and/or modify it under the same terms and conditions as Perl itself.

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

See LICENSE file

cpanm CTK

perl -MCPAN -e shell
install CTK