#!/usr/bin/env perl

use strict;
use warnings;
use constant READ_TIMEOUT => 0.5;

use Text::ASCIITable;
use IO::Select;

if (-t \*STDIN) {
    warn "[$$] STDIN:  TTY\n";
}
else {
    warn "[$$] STDIN:  PIPE\n";
}

if (-t \*STDOUT) {
    warn "[$$] STDOUT: TTY\n";
}
else {
    warn "[$$] STDOUT: PIPE\n";
}

$| = 1;
print "\0" if -t \*STDIN;

my $io_select = IO::Select->new(\*STDIN);

if ($io_select->can_read(READ_TIMEOUT)) {
    print for <STDIN>;
} else {
    print get_table();
}

sub get_table {
    my $t = Text::ASCIITable::->new({
        headingText => 'Basket'
    });

    $t->setCols('Id', 'Name', 'Price');
    $t->addRow(1, 'Dummy product 1', 24.4);
    $t->addRow(2, 'Dummy product 2', 21.2);
    $t->addRow(3, 'Dummy product 3', 12.3);
    $t->addRowLine();
    $t->addRow('', 'Total', 57.9);

    return $t;
}