File Coverage

blib/lib/Term/Size/Win32.pm
Criterion Covered Total %
statement 10 14 71.4
branch 0 4 0.0
condition n/a
subroutine 4 5 80.0
pod n/a
total 14 23 60.8


line stmt bran cond sub pod time code
1             package Term::Size::Win32;
2              
3 2     2   65828 use strict;
  2         5  
  2         94  
4             #use Carp;
5 2     2   13 use vars qw(@EXPORT_OK @ISA $VERSION);
  2         4  
  2         138  
6              
7 2     2   10 use Exporter ();
  2         10  
  2         262  
8              
9             require Win32::Console;
10              
11             @ISA = qw(Exporter);
12             @EXPORT_OK = qw(chars pixels);
13              
14             $VERSION = '0.209';
15              
16             sub chars {
17 1     1   252 my @size = Win32::Console->new()->Size(); # FIXME argument ignored
18 0 0         return @size if wantarray;
19 0           return $size[0];
20             }
21              
22             sub pixels {
23 0 0   0     return (0, 0) if wantarray;
24 0           return 0;
25             }
26              
27             1;
28              
29             __END__