File Coverage

blib/lib/Pod/Perldoc/ToChecker.pm
Criterion Covered Total %
statement 12 17 70.5
branch n/a
condition n/a
subroutine 4 8 50.0
pod 0 4 0.0
total 16 29 55.1


line stmt bran cond sub pod time code
1             package Pod::Perldoc::ToChecker;
2 1     1   740 use strict;
  1         1  
  1         25  
3 1     1   3 use warnings;
  1         2  
  1         19  
4 1     1   3 use vars qw(@ISA);
  1         1  
  1         31  
5              
6 1     1   2 use vars qw($VERSION);
  1         1  
  1         116  
7             $VERSION = '3.27';
8              
9             # Pick our superclass...
10             #
11             eval 'require Pod::Simple::Checker';
12             if($@) {
13             require Pod::Checker;
14             @ISA = ('Pod::Checker');
15             } else {
16             @ISA = ('Pod::Simple::Checker');
17             }
18              
19 0     0 0   sub is_pageable { 1 }
20 0     0 0   sub write_with_binmode { 0 }
21 0     0 0   sub output_extension { 'txt' }
22              
23             sub if_zero_length {
24 0     0 0   my( $self, $file, $tmp, $tmpfd ) = @_;
25 0           print "No Pod errors in $file\n";
26             }
27              
28              
29             1;
30              
31             __END__