File Coverage

blib/lib/Term/Choose/Constants.pm
Criterion Covered Total %
statement 30 31 96.7
branch 1 2 50.0
condition 1 3 33.3
subroutine 10 10 100.0
pod n/a
total 42 46 91.3


line stmt bran cond sub pod time code
1             package Term::Choose::Constants;
2              
3 3     3   16 use warnings;
  3         5  
  3         164  
4 3     3   12 use strict;
  3         6  
  3         83  
5 3     3   34 use 5.10.1;
  3         9  
6              
7             our $VERSION = '1.780';
8              
9 3     3   13 use Exporter qw( import );
  3         5  
  3         399  
10              
11             our @EXPORT_OK = qw(
12             NEXT_get_key
13             CONTROL_SPACE LINE_FEED CARRIAGE_RETURN
14             CONTROL_A CONTROL_B CONTROL_C CONTROL_D CONTROL_E CONTROL_F CONTROL_H CONTROL_I
15             CONTROL_K CONTROL_N CONTROL_P CONTROL_Q CONTROL_R CONTROL_S CONTROL_T CONTROL_U CONTROL_X
16             KEY_BTAB KEY_TAB KEY_ESC KEY_SPACE KEY_h KEY_j KEY_k KEY_l KEY_q KEY_Tilde KEY_BSPACE
17             VK_LEFT VK_RIGHT VK_UP VK_DOWN
18             VK_INSERT VK_DELETE VK_HOME VK_END VK_PAGE_UP VK_PAGE_DOWN
19             VK_F1 VK_F2 VK_F3 VK_F4
20             ROW COL
21             WIDTH_CURSOR EXTRA_W TERM_READKEY
22             PH SGR_ES
23             );
24              
25             our %EXPORT_TAGS = (
26             all => [ @EXPORT_OK ]
27             );
28              
29              
30 3     3   16 use constant TERM_READKEY => eval { require Term::ReadKey; 1 };
  3         4  
  3         9  
  3         791  
  0         0  
31              
32 3     3   20 use constant WIDTH_CURSOR => 1;
  3         5  
  3         236  
33              
34 3 50 33 3   35 use constant EXTRA_W => $^O eq 'MSWin32' || $^O eq 'cygwin' ? 0 : WIDTH_CURSOR;
  3         59  
  3         243  
35              
36             use constant {
37 3         213 PH => "\x{feff}", # zero width placeholder character
38             SGR_ES => '\e\[[\d;]*m',
39 3     3   16 };
  3         5  
40              
41             use constant {
42 3         407 ROW => 0,
43             COL => 1,
44 3     3   14 };
  3         16  
45              
46             use constant {
47 3         1046 NEXT_get_key => -1,
48              
49             CONTROL_SPACE => 0x00,
50             CONTROL_A => 0x01,
51             CONTROL_B => 0x02,
52             CONTROL_C => 0x03,
53             CONTROL_D => 0x04,
54             CONTROL_E => 0x05,
55             CONTROL_F => 0x06,
56             # CONTROL_G => 0x07,
57             CONTROL_H => 0x08,
58             KEY_BTAB => 0x08,
59             CONTROL_I => 0x09,
60             KEY_TAB => 0x09,
61             # CONTROL_J => 0x0a,
62             LINE_FEED => 0x0a,
63             CONTROL_K => 0x0b,
64             # CONTROL_L => 0x0c,
65             # CONTROL_M => 0x0d,
66             CARRIAGE_RETURN => 0x0d,
67             CONTROL_N => 0x0e,
68             # CONTROL_O => 0x0f,
69             CONTROL_P => 0x10,
70             CONTROL_Q => 0x11,
71             CONTROL_R => 0x12, # unused
72             CONTROL_S => 0x13,
73             CONTROL_T => 0x14,
74             CONTROL_U => 0x15,
75             # CONTROL_V => 0x16,
76             # CONTROL_W => 0x17,
77             CONTROL_X => 0x18,
78             # CONTROL_Y => 0x19,
79             # CONTROL_Z => 0x1a,
80             KEY_ESC => 0x1b,
81             KEY_SPACE => 0x20,
82             KEY_h => 0x68,
83             KEY_j => 0x6a,
84             KEY_k => 0x6b,
85             KEY_l => 0x6c,
86             KEY_q => 0x71,
87             KEY_Tilde => 0x7e,
88             KEY_BSPACE => 0x7f,
89              
90             VK_PAGE_UP => 333, # VK_CODE_KEY + 300
91             VK_PAGE_DOWN => 334,
92             VK_END => 335,
93             VK_HOME => 336,
94             VK_LEFT => 337,
95             VK_UP => 338,
96             VK_RIGHT => 339,
97             VK_DOWN => 340,
98             VK_INSERT => 345,
99             VK_DELETE => 346,
100             VK_F1 => 412,
101             VK_F2 => 413,
102             VK_F3 => 414,
103             VK_F4 => 415,
104 3     3   13 };
  3         19  
105              
106              
107              
108             1;
109              
110             __END__