File Coverage

lib/Term/ProgressBar/Quiet.pm
Criterion Covered Total %
statement 21 22 95.4
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 28 31 90.3


line stmt bran cond sub pod time code
1             package Term::ProgressBar::Quiet;
2 1     1   780 use strict;
  1         2  
  1         38  
3 1     1   4 use warnings;
  1         2  
  1         226  
4 1     1   1335 use IO::Interactive qw(is_interactive);
  1         24082  
  1         6  
5 1     1   1395 use Term::ProgressBar;
  1         205688  
  1         68  
6 1     1   1124 use Test::MockObject;
  1         3774  
  1         8  
7             our $VERSION = '0.31';
8              
9             sub new {
10 1     1 0 1136 my $class = shift;
11 1 50       6 if ( is_interactive ) {
12 0         0 return Term::ProgressBar->new(@_);
13             } else {
14 1         34 my $mock = Test::MockObject->new();
15 1         11 $mock->set_true('update');
16 1         43 $mock->set_true('message');
17 1         25 return $mock;
18             }
19             }
20              
21             1;
22              
23             __END__