t/Pod/Coverage/Imager.pm

   1 package Pod::Coverage::Imager;
   2 use strict;
   3 use base 'Pod::Coverage';
   4
   5 sub _get_pods {
   6   my $self = shift;
   7
   8   my $package = $self->{package};
   9
  10   #print "getting pod location for '$package'\n" if TRACE_ALL;
  11   $self->{pod_from} ||= pod_where( { -inc => 1 }, $package );
  12
  13   my $pod_from = $self->{pod_from};
  14   $pod_from = [ $pod_from ] unless ref $pod_from;
  15   unless ($pod_from) {
  16     $self->{why_unrated} = "couldn't find pod";
  17     return;
  18   }
  19
  20   #print "parsing '$pod_from'\n" if TRACE_ALL;
  21   my $pod = Pod::Coverage::Extractor->new;
  22   for my $pod_file (@$pod_from) {
  23     $pod->parse_from_file( $pod_file, '/dev/null' );
  24   }
  25
  26   return $pod->{identifiers} || [];
  27 }
  28
  29 sub _get_syms {
  30   my ($self, $package) = @_;
  31
  32   if ($self->{module}) {
  33     eval "require $self->{module}";
  34     return if $@;
  35
  36     # fake out require
  37     (my $file = $package) =~ s(::)(/)g;
  38     $file .= ".pm";
  39     $INC{$file} = 1;
  40   }
  41
  42   return $self->SUPER::_get_syms($package);
  43 }
  44
  45 1;