File Coverage

blib/lib/Term/Size/Perl/Params.pm
Criterion Covered Total %
statement 4 4 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod 1 1 100.0
total 7 7 100.0


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;