Friendpaste

class Term::Curses {
    has $.y is rw;
    has $.x is rw;

    has $!stdscr;

    method new(
        :$cbreak = True,
        :$echo = False,
        :$nl = False,
        :$intrflush = False,
        :$keypad = True,
        :$use_default_colors = True,
        :$start_color = True
    ) {
        #setlocale(0, "");

        # TODO: use newterm() instead of initscr()?
        my $stdscr = initscr();

        cbreak() if $cbreak;
        noecho() unless $echo;
        nonl() unless $nl;
        intrflush($stdscr, 0) unless $intrflush;
        keypad($stdscr, 1) if $keypad;
        if ($start_color and has_colors()) {
            use_default_colors() if $use_default_colors;
            start_color();
        }

        self.bless(*, :$stdscr);
    }

    submethod BUILD(:$!stdscr) {}