Term :: TermKey：捕捉mouseevents和按鍵的正確方法是什麼？

Question

這適用於按鍵，但不適用於鼠標點擊。我應該改變什麼才能使其工作（Term::TermKey）？

#!/usr/bin/env perl 
use warnings; 
use 5.12.0; 
use utf8; 
use Term::TermKey qw(FLAG_UTF8); 
my $tk = Term::TermKey->new(\*STDIN); 
binmode STDOUT, ':encoding(utf-8)' if $tk->get_flags & FLAG_UTF8; 

while(1) { 
    my $key; 
    $tk->waitkey($key); 

    if ($key->type_is_mouse) { 
     my ($ev, $button, $line, $col) = $tk->interpret_mouse($key); 
     say "event : $ev"; 
     say "button: $button"; 
     say "line : $line"; 
     say "col : $col"; 
    } 
    else { 
     say "<", $tk->format_key($key, 0), ">"; 
    } 
} 

Answer 1

當我激活鼠標模式它的作品。

#!/usr/bin/env perl 
use warnings; 
use 5.12.0; 
use utf8; 
use Term::TermKey qw(FLAG_UTF8); 
my $tk = Term::TermKey->new(\*STDIN); 
binmode STDOUT, ':encoding(utf-8)' if $tk->get_flags & FLAG_UTF8; 

$|++; 

print "\e[?1003h"; 

say "Quit with \"q\""; 
while(1) { 
    my $key; 
    $tk->waitkey($key); 

    if ($key->type_is_mouse) { 
     my ($ev, $button, $line, $col) = $tk->interpret_mouse($key); 
     say "event : $ev"; 
     say "button: $button"; 
     say "line : $line"; 
     say "col : $col"; 
    } 
    else { 
     say "<", $tk->format_key($key, 0), ">"; 
     last if $tk->format_key($key, 0) eq 'q'; 
    } 
} 

print "\e[?1003l";