view release on metacpan or  search on metacpan

lib/Curses/UI/AnyEvent.pm  view on Meta::CPAN

    }
}

sub char_read {
    my $self = shift;

    $self->Curses::UI::Common::char_read(0); ## Ignore timeout passed in to us, hard-code to 0
}


sub tempdialog() {
    my $self = shift;
    my $class = shift;
    my %args = @_;

    my $cb = delete $args{-cb} || sub {};

    my $id = "__window_$class";

    my $dialog = $self->add($id, $class, %args);