@rem = '--*-Perl-*--

@set "ErrorLevel="

@if "%OS%" == "Windows_NT" @goto WinNT

@perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9

@set ErrorLevel=%ErrorLevel%

@goto endofperl

:WinNT

@perl -x -S %0 %*

@set ErrorLevel=%ErrorLevel%

@if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" @goto endofperl

@if %ErrorLevel% == 9009 @echo You do not have Perl in your PATH.

@goto endofperl

@rem ';

#!/usr/bin/perl -w

#line 30

​

# Run this to get a coverage analysis of the embedded documentation

​

use Pod::Coverage;

use lib 'lib';          # to test distribution inside './lib'

use strict;

​

print "Pod coverage analysis v1.00 (C) by Tels 2001.\n";

print "Using Pod::Coverage v$Pod::Coverage::VERSION\n\n";

​

print scalar localtime()," Starting analysis:\n\n";

​

my $covered = 0; my $uncovered; my $count = 0; my $c;

open FILE, 'MANIFEST' or die "Can't read MANIFEST: $!";

while (<FILE>)

  {

  chomp;

  my ($file) = split /[\s\t]/,$_;

  next unless $file =~ /^lib.*\.pm$/;

  $file =~ s/^lib\///;          # remove lib and .pm

  $file =~ s/\.pm$//;

  $file =~ s/\//::/g;           # / => ::

  my $rc = Pod::Coverage->new( package => $file );

  $covered += $rc->covered(); 

  $uncovered += $rc->uncovered(); 

  $count ++;

  $c = $rc->coverage() || 0; 

  $c = int($c * 10000)/100;