package inc::dtRdrBuilder::AlsoPodCoverage;

use warnings;
use strict;

# Copyright (C) 2007 by Eric Wilhelm and OSoft, Inc.
# License: perl

# ugh, Pod::Coverage doesn't fail when require fails.  Also, it can't
# check the other-platform's pod coverage.  That's just not acceptable.

use base 'Pod::Coverage';

# Hmm, I'm assuming it is in lib because it usually is.  Maybe just
# don't use Pod::Coverage as a base?  If you're worried about this
# missing multi-package modules, quit writing multi-package modules
# because we would have to decide what pod covered what package.

sub _get_syms {
  my $self    = shift;
  my $package = shift;

  my $file = 'lib/' . $package . '.pm';
  $file =~ s#::#/#g;
  unless(-e $file) {
    die "cannot find $file";
  }

  open(my $fh, '<', $file) or die "cannot open $file";

  my @found;
  while(my $line = <$fh>) {
    if($line =~ m/^sub ([a-z_]\w+)/) {
      my $name = $1;
      # TODO skip one-liners?
      next if $self->_private_check($name);
      push(@found, $1);
    }
  }

  return @found;
  
}

# vi:ts=2:sw=2:et:sta
1;