File Coverage

blib/lib/Term/Spark.pm

Criterion	Covered	Total	%
statement	12	25	48.0
branch			n/a
condition	0	4	0.0
subroutine	4	6	66.6
pod	0	2	0.0
total	16	37	43.2

package Term::Spark;

use strict;
use warnings;
use utf8;

use Sub::Exporter -setup => {
    'exports' => [ 'show_bar', 'show_graph' ],
};

our @ISA = qw();

our $VERSION = '0.25'; # VERSION

sub show_bar {
    my $num = shift;
    my $max = shift;

    my @graph  = qw{ ▁ ▂ ▃ ▄ ▅ ▆ ▇ █ };

    my $index = ( $num * ( scalar( @graph ) - 1 )  ) / $max;

    return $graph[ int $index ];
}

sub show_graph {
    my %args = @_;

    my $max    = $args{'max'}    || 0;
    my $values = $args{'values'} || [];
    my $result = q{};

    for my $value ( @{ $values } ) {
        $result .= show_bar( $value, $max );
    }

    return $result;
}

1;

__END__