Pod::Coverage - Checks if the documentation of a module is comprehensive

  # in the beginnning...
  perl -MPod::Coverage=Pod::Coverage -e666

  # all in one invocation
  use Pod::Coverage package => 'Fishy';

  # straight OO
  use Pod::Coverage;
  my $pc = Pod::Coverage->new(package => 'Pod::Coverage');
  print "We rock!" if $pc->coverage == 1;

Developers hate writing documentation. They'd hate it even more if their computer tattled on them, but maybe they'll be even more thankful in the long run. Even if not, perlmodstyle tells you to, so you must obey.

This module provides a mechanism for determining if the pod for a given module is comprehensive.

It expects to find either a CW=head(n>1) or an CW=item block documenting a subroutine.

Consider: # an imaginary Foo.pm package Foo;

 =item foo

 The foo sub

 = cut

 sub foo {}
 sub bar {}

 1;
 __END__

In this example CWFoo::foo is covered, but CWFoo::bar is not, so the CWFoo package is only 50% (0.5) covered

Creates a new Pod::Coverage object. CWpackage the name of the package to analyse CWprivate an array of regexen which define what symbols are regarded as private (and so need not be documented) defaults to /^_/, /^import$/, /^DESTROY$/, /^AUTOLOAD$/, /^bootstrap$/, /^(TIE(SCALAR|ARRAY|HASH|HANDLE)|FETCH|STORE|UNTIE|FETCHSIZE|STORESIZE|POP|PUSH|SHIFT|UNSHIFT|SPLICE|DELETE|EXISTS|EXTEND|CLEAR|FIRSTKEY|NEXTKEY|PRINT|PRINTF|WRITE|READLINE|GETC|READ|CLOSE|BINMODE|OPEN|EOF|FILENO|SEEK|TELL)$/. That last big one covers all the required and optional methods for tie()d objects, as these methods are (hardly) ever called by a user, being used internally by perl. CWalso_private items are appended to the private list CWtrustme an array of regexen which define what symbols you just want us to assume are properly documented even if we can't find any docs for them If CWpod_from is supplied, that file is parsed for the documentation, rather than using Pod::Find

$object->coverage

Gives the coverage as a value in the range 0 to 1

$object->why_unrated

CW$object->coverage may return CWundef, to indicate that it was unable to deduce coverage for a package. If this happens you should be able to check CWwhy_unrated to get a useful excuse.

$object->naked/$object->uncovered

Returns a list of uncovered routines, will implicitly call coverage if it's not already been called. Note, private and 'trustme' identifiers will be skipped.

$object->covered

Returns a list of covered routines, will implicitly call coverage if it's not previously been called. As with CWnaked, private and 'trustme' identifiers will be skipped.

In order to allow internals debugging, while allowing the optimiser to do its thang, CWPod::Coverage uses constant subs to define how it traces.

Use them like so

 sub Pod::Coverage::TRACE_ALL () { 1 }
 use Pod::Coverage;

Supported constants are:

TRACE_ALL

Trace everything. Well that's all there is so far, are you glad you came?

These abstract methods while functional in CWPod::Coverage may make your life easier if you want to extend CWPod::Coverage to fit your house style more closely.

NOTE Please consider this interface as in a state of flux until this comment goes away.

$object->_CvGV($symbol)

Return the GV for the coderef supplied. Used by CW_get_syms to identify locally defined code. You probably won't need to override this one.

$object->_get_syms($package)

return a list of symbols to check for from the specified packahe

_get_pods

Extract pod markers from the currently active package. Return an arrayref or undef on fail.

_private_check($symbol)

return true if the symbol should be considered private

_trustme_check($symbol)

return true if the symbol is a 'trustme' symbol

Due to the method used to identify documented subroutines CWPod::Coverage may completely miss your house style and declare your code undocumented. Patches and/or failing tests welcome.

Widen the rules for identifying documentation

Test::More, Devel::Cover

Richard Clamp <richardc@unixbeard.net>

Michael Stevens <mstevens@etla.org>

some contributions from David Cantrell <david@cantrell.org.uk>

Copyright (c) 2001, 2003, 2004 Richard Clamp, Michael Stevens. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.