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 2         692965 eval 'exec /usr/local/bin/perl -S $0 ${1+"$@"}'
3             if 0;
4              
5             # This "perldoc" file was generated by "perldoc.PL"
6              
7 2         74 require 5;
8             BEGIN {
9 2 50   2   13497 $^W = 1 if $ENV{'PERLDOCDEBUG'};
10 2 50       78 pop @INC if $INC[-1] eq '.';
11             }
12 2     2   1730 use Pod::Perldoc;
  2         85779  
  2         2774  
13 2         74 exit( Pod::Perldoc->run() );
14