use strict;
use warnings;
use lib 'lib';

use Net::Partty::Screen;

my $scr = Net::Partty::Screen->new;
$scr->connect(
    message           => 'test.pl',
    session_name      => 'NetParttyScreen_test',
    writable_password => 'test',
    readonly_password => '',
);

$scr->clrscr;
my $i = 0;
while (1) {
    $i++;
    $scr->at(21,0)->puts("Testing getch, Enter Key (q to quit): \n")->at(21,42)->puts("[$i]")->at(21,40);
    my $char = $scr->getch or last;
    if (length($char) == 1) {
        $scr->at(21,50)->clreol->puts("ord of char is: ");
        $scr->puts(ord($char))->at(21,40);
    } else {
        $scr->at(21,50)->clreol->puts("function value: $char");
        $scr->at(21,40);
    }
    last if $char eq 'q';
}