line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
|
2
|
|
|
|
|
|
|
package Term::Size::Perl::Params; |
3
|
|
|
|
|
|
|
|
4
|
|
|
|
|
|
|
# created Sat Aug 30 03:27:22 2014 |
5
|
|
|
|
|
|
|
|
6
|
3
|
|
|
3
|
|
20
|
use vars qw($VERSION); |
|
3
|
|
|
|
|
5
|
|
|
3
|
|
|
|
|
307
|
|
7
|
|
|
|
|
|
|
$VERSION = 0.029; |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
=head1 Term::Size::Perl::Params |
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
=head2 params |
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
$href = Term::Size::Perl::Params |
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
The configuration parameters C needs to |
16
|
|
|
|
|
|
|
know for retrieving the terminal size with C. |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
=cut |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
sub params { |
21
|
|
|
|
|
|
|
return ( |
22
|
3
|
|
|
3
|
1
|
27
|
winsize => { |
23
|
|
|
|
|
|
|
sizeof => 8, |
24
|
|
|
|
|
|
|
mask => 'S!S!S!S!' |
25
|
|
|
|
|
|
|
}, |
26
|
|
|
|
|
|
|
TIOCGWINSZ => { |
27
|
|
|
|
|
|
|
value => 21523, |
28
|
|
|
|
|
|
|
definition => qq{0x5413} |
29
|
|
|
|
|
|
|
} |
30
|
|
|
|
|
|
|
); |
31
|
|
|
|
|
|
|
} |
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
1; |