File Coverage

blib/lib/Perl/Tidy/DevNull.pm
Criterion Covered Total %
statement 9 10 90.0
branch n/a
condition n/a
subroutine 4 5 80.0
pod 0 3 0.0
total 13 18 72.2


line stmt bran cond sub pod time code
1             #####################################################################
2             #
3             # The Perl::Tidy::DevNull class supplies a dummy print method
4             #
5             #####################################################################
6              
7             package Perl::Tidy::DevNull;
8 38     38   264 use strict;
  38         71  
  38         1165  
9 38     38   198 use warnings;
  38         74  
  38         3355  
10             our $VERSION = '20230701';
11 1649     1649 0 2946 sub new { my $self = shift; return bless {}, $self }
  1649         4884  
12 16     16 0 20 sub print { return }
13 0     0 0   sub close { return }
14              
15             1;
16