File Coverage

blib/lib/App/Prove/Plugin/TermTable.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 23 24 95.8


line stmt bran cond sub pod time code
1             package App::Prove::Plugin::TermTable;
2              
3 2     2   194582 use strict;
  2         9  
  2         56  
4 2     2   8 use warnings;
  2         4  
  2         45  
5 2     2   51 use 5.008001;
  2         7  
6 2     2   10 use Term::Size::Any qw( chars );
  2         4  
  2         19  
7              
8             # ABSTRACT: Set the size of the console for Term::Table
9             our $VERSION = '0.03'; # VERSION
10              
11              
12             sub load
13             {
14 2     2 0 7182 my($class, $p) = @_;
15 2 100       9 return if $ENV{TABLE_TERM_SIZE};
16 1         25 open FP, '>', '/dev/tty';
17 1         6 $ENV{TABLE_TERM_SIZE} = chars(*FP);
18 1         10 close FP;
19             }
20              
21             1;
22              
23             __END__