POD coverage tests, as a TODO for now
[imager.git] / t / Pod / Coverage / Imager.pm
1 package Pod::Coverage::Imager;
2 use base 'Pod::Coverage';
3
4 sub _get_pods {
5   my $self = shift;
6
7   my $package = $self->{package};
8
9   #print "getting pod location for '$package'\n" if TRACE_ALL;
10   $self->{pod_from} ||= pod_where( { -inc => 1 }, $package );
11
12   my $pod_from = $self->{pod_from};
13   $pod_from = [ $pod_from ] unless ref $pod_from;
14   unless ($pod_from) {
15     $self->{why_unrated} = "couldn't find pod";
16     return;
17   }
18   
19   #print "parsing '$pod_from'\n" if TRACE_ALL;
20   my $pod = Pod::Coverage::Extractor->new;
21   for my $pod_file (@$pod_from) {
22     $pod->parse_from_file( $pod_file, '/dev/null' );
23   }
24   
25   return $pod->{identifiers} || [];
26 }
27
28 1;