File Coverage

blib/lib/Grizzly/Progress/Bar.pm

Criterion	Covered	Total	%
statement	26	27	96.3
branch	5	6	83.3
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	37	40	92.5

package Grizzly::Progress::Bar;

# ABSTRACT: Runs a progress bar when called

use strict;
use warnings;

use Term::Clear ();
use Term::ProgressBar 2.00;
use constant MAX => 100_000;

sub progressbar {
    my ($self) = @_;

    my $max      = MAX;
    my $progress = Term::ProgressBar->new(
        { name => 'Grizzly', count => $max, remove => 1, silent => 0, } );

    $progress->minor(0);
    my $next_update = 0;

    for ( 0 .. $max ) {
        my $is_power = 0;
        for ( my $i = 0 ; 2**$i <= $_ ; $i++ ) {
            $is_power = 1 if 2**$i == $_;
        }

        $next_update = $progress->update($_) if $_ >= $next_update;
    }
    $progress->update($max) if $max >= $next_update;

    Term::Clear::clear();

}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Grizzly::Progress::Bar - Runs a progress bar when called

=head1 VERSION

version 0.103

=head1 DESCRIPTION

Outputs a progress bar so the user can visually see Grizzly gather the stock information.

=head1 NAME

Grizzly::Progress::Bar

=head1 AUTHOR

Nobunaga <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2021 by Nobunaga.

MIT License

=head1 AUTHOR

Nobunaga <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2021 by Nobunaga.

This is free software, licensed under:

  The MIT (X11) License

=cut