File Coverage

/usr/local/bin/perldoc
Criterion Covered Total %
statement 8 8 100.0
branch 2 4 50.0
condition n/a
subroutine 2 2 100.0
pod n/a
total 12 14 85.7


line stmt bran cond sub pod time code
1             #!/usr/local/bin/perl
2 6         873014 eval 'exec /usr/local/bin/perl -S $0 ${1+"$@"}'
3             if 0;
4              
5             # This "perldoc" file was generated by "perldoc.PL"
6              
7 6         90 require 5;
8             BEGIN {
9 6 50   6   33708 $^W = 1 if $ENV{'PERLDOCDEBUG'};
10 6 50       218 pop @INC if $INC[-1] eq '.';
11             }
12 6     6   4246 use Pod::Perldoc;
  6         243912  
  6         9808  
13 6         93 exit( Pod::Perldoc->run() );
14