File Coverage

blib/lib/App/AsciiChart.pm

Criterion	Covered	Total	%
statement	48	50	96.0
branch	5	8	62.5
condition	2	2	100.0
subroutine	6	6	100.0
pod	0	2	0.0
total	61	68	89.7

package App::AsciiChart;
use 5.008001;
use strict;
use warnings;
use List::Util qw(min max);

our $VERSION = "0.04";

sub new {
    my $class = shift;

    my $self = {@_};
    $self->{bg_char} ||= '.';

    bless $self, $class;

    return $self;
}

sub plot {
    my $self = shift;
    my ($series) = @_;

    my $min = min @$series;
    my $max = max @$series;

    my $padding = length $max;

    my $range = abs( $min - $max );

    my $height = $range;
    my $ratio  = $height / $range;

    my $min2 = int( $min * $ratio );
    my $max2 = int( $max * $ratio );
    my $rows = abs( $max2 - $min2 );

    my $result = [];

    my $bg_char = substr($self->{bg_char}, 0, 1);

    for ( 0 .. $rows ) {
        push @$result, [ $bg_char, map { $bg_char } @$series ];
    }

    for my $row ( 0 .. $rows ) {
        $result->[$row]->[0] =
          ( sprintf "%${padding}s", $max2 - $ratio * $row )
          . ( $row == $rows - int( $series->[0] * $ratio ) + $min2
            ? '┼'
            : '┤' );

        for ( my $x = 0 ; $x < @$series - 1 ; $x++ ) {
            my $y0 = int( $series->[$x] * $ratio ) - $min2;
            my $y1 = int( $series->[ $x + 1 ] * $ratio ) - $min2;

            if ( $y0 == $y1 ) {
                $result->[ $rows - $y0 ]->[ $x + 1 ] = '─';
            }
            else {
                $result->[ $rows - $y1 ]->[ $x + 1 ] =
                  ( $y0 > $y1 ) ? '╰' : '╭';
                $result->[ $rows - $y0 ]->[ $x + 1 ] =
                  ( $y0 > $y1 ) ? '╮' : '╯';

                my $from = min( $y0, $y1 );
                my $to = max( $y0, $y1 );

                for ( my $y = $from + 1 ; $y < $to ; $y++ ) {
                    $result->[ $rows - $y ]->[ $x + 1 ] = '│';
                }
            }
        }
    }

    my $plot = '';

    foreach my $line (@$result) {
        $plot .= join '', @$line;
        $plot .= "\n";
    }

    return $plot;
}

1;
__END__