/usr/share/perl5/Term/Choose/Constants.pm is in libterm-choose-perl 1.511-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 | package Term::Choose::Constants;
use warnings;
use strict;
use 5.008003;
our $VERSION = '1.511';
use Exporter qw( import );
our @EXPORT_OK = qw(
ROW COL
LF CR
HIDE_CURSOR SHOW_CURSOR WIDTH_CURSOR
MAX_ROW_MOUSE_1003 MAX_COL_MOUSE_1003
GET_CURSOR_POSITION
SET_ANY_EVENT_MOUSE_1003 SET_EXT_MODE_MOUSE_1005 SET_SGR_EXT_MODE_MOUSE_1006
UNSET_ANY_EVENT_MOUSE_1003 UNSET_EXT_MODE_MOUSE_1005 UNSET_SGR_EXT_MODE_MOUSE_1006
BEEP CLEAR_SCREEN CLEAR_TO_END_OF_SCREEN RESET REVERSE BOLD_UNDERLINE
NEXT_get_key
CONTROL_SPACE CONTROL_A CONTROL_B CONTROL_C CONTROL_D CONTROL_E CONTROL_F CONTROL_H KEY_BTAB CONTROL_I KEY_TAB
KEY_ENTER KEY_ESC KEY_SPACE KEY_h KEY_j KEY_k KEY_l KEY_q KEY_Tilde KEY_BSPACE
VK_PAGE_UP VK_PAGE_DOWN VK_END VK_HOME VK_LEFT VK_UP VK_RIGHT VK_DOWN VK_INSERT VK_DELETE
MOUSE_WHEELED
LEFTMOST_BUTTON_PRESSED RIGHTMOST_BUTTON_PRESSED FROM_LEFT_2ND_BUTTON_PRESSED
);
our %EXPORT_TAGS = (
choose => [ qw(
ROW COL
LF CR
WIDTH_CURSOR
MAX_ROW_MOUSE_1003 MAX_COL_MOUSE_1003
BEEP
NEXT_get_key
CONTROL_SPACE CONTROL_A CONTROL_B CONTROL_C CONTROL_D CONTROL_E CONTROL_F CONTROL_H KEY_BTAB CONTROL_I KEY_TAB
KEY_ENTER KEY_SPACE KEY_h KEY_j KEY_k KEY_l KEY_q KEY_Tilde KEY_BSPACE
VK_PAGE_UP VK_PAGE_DOWN VK_END VK_HOME VK_LEFT VK_UP VK_RIGHT VK_DOWN
) ],
linux => [ qw(
CLEAR_SCREEN CLEAR_TO_END_OF_SCREEN RESET REVERSE BOLD_UNDERLINE
HIDE_CURSOR SHOW_CURSOR WIDTH_CURSOR
GET_CURSOR_POSITION
SET_ANY_EVENT_MOUSE_1003 SET_EXT_MODE_MOUSE_1005 SET_SGR_EXT_MODE_MOUSE_1006
UNSET_ANY_EVENT_MOUSE_1003 UNSET_EXT_MODE_MOUSE_1005 UNSET_SGR_EXT_MODE_MOUSE_1006
NEXT_get_key
KEY_BTAB KEY_ESC
VK_PAGE_UP VK_PAGE_DOWN VK_END VK_HOME VK_LEFT VK_UP VK_RIGHT VK_DOWN VK_INSERT VK_DELETE
) ],
win32 => [ qw(
NEXT_get_key
CONTROL_SPACE
VK_PAGE_UP VK_PAGE_DOWN VK_END VK_HOME VK_LEFT VK_UP VK_RIGHT VK_DOWN VK_INSERT VK_DELETE
MOUSE_WHEELED
LEFTMOST_BUTTON_PRESSED RIGHTMOST_BUTTON_PRESSED FROM_LEFT_2ND_BUTTON_PRESSED
) ]
);
use constant {
ROW => 0,
COL => 1,
};
use constant {
LF => "\n",
CR => "\r",
BEEP => "\a",
CLEAR_SCREEN => "\e[H\e[J",
CLEAR_TO_END_OF_SCREEN => "\e[0J",
RESET => "\e[0m",
BOLD_UNDERLINE => "\e[1m\e[4m",
REVERSE => "\e[7m",
HIDE_CURSOR => "\e[?25l",
SHOW_CURSOR => "\e[?25h",
WIDTH_CURSOR => 1,
};
use constant {
GET_CURSOR_POSITION => "\e[6n",
SET_ANY_EVENT_MOUSE_1003 => "\e[?1003h",
SET_EXT_MODE_MOUSE_1005 => "\e[?1005h",
SET_SGR_EXT_MODE_MOUSE_1006 => "\e[?1006h",
UNSET_ANY_EVENT_MOUSE_1003 => "\e[?1003l",
UNSET_EXT_MODE_MOUSE_1005 => "\e[?1005l",
UNSET_SGR_EXT_MODE_MOUSE_1006 => "\e[?1006l",
MAX_ROW_MOUSE_1003 => 223,
MAX_COL_MOUSE_1003 => 223,
MOUSE_WHEELED => 0x0004,
LEFTMOST_BUTTON_PRESSED => 0x0001,
RIGHTMOST_BUTTON_PRESSED => 0x0002,
FROM_LEFT_2ND_BUTTON_PRESSED => 0x0004,
};
use constant {
NEXT_get_key => -1,
CONTROL_SPACE => 0x00,
CONTROL_A => 0x01,
CONTROL_B => 0x02,
CONTROL_C => 0x03,
CONTROL_D => 0x04,
CONTROL_E => 0x05,
CONTROL_F => 0x06,
CONTROL_H => 0x08,
KEY_BTAB => 0x08,
CONTROL_I => 0x09,
KEY_TAB => 0x09,
KEY_ENTER => 0x0d,
KEY_ESC => 0x1b,
KEY_SPACE => 0x20,
KEY_h => 0x68,
KEY_j => 0x6a,
KEY_k => 0x6b,
KEY_l => 0x6c,
KEY_q => 0x71,
KEY_Tilde => 0x7e,
KEY_BSPACE => 0x7f,
VK_PAGE_UP => 33,
VK_PAGE_DOWN => 34,
VK_END => 35,
VK_HOME => 36,
VK_LEFT => 37,
VK_UP => 38,
VK_RIGHT => 39,
VK_DOWN => 40,
VK_INSERT => 45, # unused
VK_DELETE => 46, # unused
};
1;
__END__
|