1*0Sstevel@tonic-gate 2*0Sstevel@tonic-gaterequire 5; 3*0Sstevel@tonic-gatepackage Pod::Perldoc::ToChecker; 4*0Sstevel@tonic-gateuse strict; 5*0Sstevel@tonic-gateuse warnings; 6*0Sstevel@tonic-gateuse vars qw(@ISA); 7*0Sstevel@tonic-gate 8*0Sstevel@tonic-gate# Pick our superclass... 9*0Sstevel@tonic-gate# 10*0Sstevel@tonic-gateeval 'require Pod::Simple::Checker'; 11*0Sstevel@tonic-gateif($@) { 12*0Sstevel@tonic-gate require Pod::Checker; 13*0Sstevel@tonic-gate @ISA = ('Pod::Checker'); 14*0Sstevel@tonic-gate} else { 15*0Sstevel@tonic-gate @ISA = ('Pod::Simple::Checker'); 16*0Sstevel@tonic-gate} 17*0Sstevel@tonic-gate 18*0Sstevel@tonic-gatesub is_pageable { 1 } 19*0Sstevel@tonic-gatesub write_with_binmode { 0 } 20*0Sstevel@tonic-gatesub output_extension { 'txt' } 21*0Sstevel@tonic-gate 22*0Sstevel@tonic-gatesub if_zero_length { 23*0Sstevel@tonic-gate my( $self, $file, $tmp, $tmpfd ) = @_; 24*0Sstevel@tonic-gate print "No Pod errors in $file\n"; 25*0Sstevel@tonic-gate} 26*0Sstevel@tonic-gate 27*0Sstevel@tonic-gate 28*0Sstevel@tonic-gate1; 29*0Sstevel@tonic-gate 30*0Sstevel@tonic-gate__END__ 31*0Sstevel@tonic-gate 32*0Sstevel@tonic-gate=head1 NAME 33*0Sstevel@tonic-gate 34*0Sstevel@tonic-gatePod::Perldoc::ToChecker - let Perldoc check Pod for errors 35*0Sstevel@tonic-gate 36*0Sstevel@tonic-gate=head1 SYNOPSIS 37*0Sstevel@tonic-gate 38*0Sstevel@tonic-gate % perldoc -o checker SomeFile.pod 39*0Sstevel@tonic-gate No Pod errors in SomeFile.pod 40*0Sstevel@tonic-gate (or an error report) 41*0Sstevel@tonic-gate 42*0Sstevel@tonic-gate=head1 DESCRIPTION 43*0Sstevel@tonic-gate 44*0Sstevel@tonic-gateThis is a "plug-in" class that allows Perldoc to use 45*0Sstevel@tonic-gatePod::Simple::Checker as a "formatter" class (or if that is 46*0Sstevel@tonic-gatenot available, then Pod::Checker), to check for errors in a given 47*0Sstevel@tonic-gatePod file. 48*0Sstevel@tonic-gate 49*0Sstevel@tonic-gateThis is actually a Pod::Simple::Checker (or Pod::Checker) subclass, and 50*0Sstevel@tonic-gateinherits all its options. 51*0Sstevel@tonic-gate 52*0Sstevel@tonic-gate=head1 SEE ALSO 53*0Sstevel@tonic-gate 54*0Sstevel@tonic-gateL<Pod::Simple::Checker>, L<Pod::Simple>, L<Pod::Checker>, L<Pod::Perldoc> 55*0Sstevel@tonic-gate 56*0Sstevel@tonic-gate=head1 COPYRIGHT AND DISCLAIMERS 57*0Sstevel@tonic-gate 58*0Sstevel@tonic-gateCopyright (c) 2002 Sean M. Burke. All rights reserved. 59*0Sstevel@tonic-gate 60*0Sstevel@tonic-gateThis library is free software; you can redistribute it and/or modify it 61*0Sstevel@tonic-gateunder the same terms as Perl itself. 62*0Sstevel@tonic-gate 63*0Sstevel@tonic-gateThis program is distributed in the hope that it will be useful, but 64*0Sstevel@tonic-gatewithout any warranty; without even the implied warranty of 65*0Sstevel@tonic-gatemerchantability or fitness for a particular purpose. 66*0Sstevel@tonic-gate 67*0Sstevel@tonic-gate=head1 AUTHOR 68*0Sstevel@tonic-gate 69*0Sstevel@tonic-gateSean M. Burke C<sburke@cpan.org> 70*0Sstevel@tonic-gate 71*0Sstevel@tonic-gate=cut 72*0Sstevel@tonic-gate 73